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INTRODUCTION 


1. 1 Purpose of the Report 

The purpose of this report is to present an analysis of the 
hydrodynamics and the chemical reaction in. a duct which is 
a prreatly scaled up and simplified model of a typical flow 
passap:e in a porous material surface combustor. The geometry 
considered is a cylindrical duct of varying cross-section 
and hence the analysis should be valid for any tubular 
combustor passage whose radius can be expressed as a 
parabolic function of axial position. 

The analysis involves the mathematical formulation of the 
flow in terms of partial differential and some auxiliary 
algebraic equations. Subsequently these equations are 
cast in their finite-difference form for obtaining 
numerical solutions. The solution procedure is incorporated 
in a computer program to produce profiles of velocity, 
temperature, and species concentrations throughout the 
combustor . 

This report provides details of the formulation and 
solution procedure as also the results of some sample cases. 

1.2 Layout of the Report 

The remainder of this report is divided into ten chapters. 
Chapter 2 is concerned with the mathematical formulation 
and physical models employed in the solution procedure. 
Chapter 3 details the numerical solution procedure, and 
Chapter 4 some further features of the calculation 
procedure. Thermodynamic and element data are discussed in 
Chapter 5, and kinetics data in Chapter 0. Results and 
discussions are provided in Chapter 7 and Chapter 8 provides 
some concluding remarks. Chapters 9 and 10 include 
references and nomenclature. Appendices A and B contain the 
description and the listing of the computer program. 
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1.3 


The Problem Considered 


The problem involves the development of a general-purpose 
computer program for the realistic prediction of the 
hydrodynamics and chemical reaction in a tubular combustor; 
special attention being given to pollutant (NO ) formation 
and flame stability. 

The combustor geometry considered in this study consists of 
a duct of circular cross-section (Fig. 1), the radius of which 
varies along the length. Two concentric streams, one of 
gaseous fuel, and the other of air, enter the duct at one 
end. On entering the duct, the fuel and air mix together, and 
the fuel starts burning in the region. Oxides of nitrogen and 
other' combustion products are formed as a result of the chemical reaction. 

The flow is two-dimensional, axisymraetric , steady and 
turbulent, with axial diffusion. 

1 . 4 Connexions with Previous Work 

The method of solution employed is based on an already 
existing computer program, GENMIX (Ref. 1). In the published 
form, of the program, the axial diffusion term is not provided, 
and only one-dimensional storage of the dependent variables 
is used, i.e. the problems considered are truly parabolic. 

In the present work, the GENMIX program has been extended 
to account for the effects of axial diffusion, and 
provision is made for repeated marching, since the problem 
is no longer truly parabolic. The present work has also 
involved the inclusion of the appropriate chemical- 
equilibrium and kinetics-calculation schemes. 
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2 . 


PHYS ICAL AND MATHEMTICAL ANA LYSIS 

■ !■ !■ . h — ■■Pill J l II I 1^— — 

2.1 Introduction 

This Chapter describes the raatheraatical and physical basis 
of the problem considered. The physical modelling of 
properties and processes is discussed in Section 2.2. 

Section 2.3 outlines the conservation equations for momentum, 
stagnation enthalpy, and chemical species. Upstream, boundary, 
and downstream conditions are considered in Sections 2.4, 

2.5, and 2.6 respectively. Auxiliary equations for mixture 
properties and flux calculations are dealt with in Section 
2.7. Section 2.8 describes the chemical-equilibrium model, 
and Section 2.9 the chemical-kinetics model. Finally, the 
influence of recirculation on the transport properties is 
discussed in Section 2.10. 

2 . 2 Physical Models 

The conservation equations outlined in the next section are 
based on a physical model which involves certain assumptions 
regarding properties and processes; these are now described. 

2.2.1 Processes 

(i) Axial derivatives for conduction, diffusion, and 
momentum transport are included in the conservation 
equations. 

(ii) The chemistry incorporated into the computer code is 
as follows: 

(1) A single-step reaction for hydrocarbon oxidation 
according to: 

1 kg Cj. fuel + s kg of oxygen -»- ( 1 + s)kg products 

( 1 ) 
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where s is a fixed stoichiometric ratio, and the 
rate of the reaction is governed by the Arrhenius 
relation : 

Rate = (-Cg/T) 

where C^, C^, Cg , are constants, T is the 

absolute temperature, and m^^ and are the 

concentrations of fuel and oxygen respectively, 

(2) The products of the above idealized reaction are 
assumed to consist of the species; CO, COg, HgO, 

O, H, Hg* and OH, in such proportions as are 
appropriate to equilibrium stoichiometric adiabatic 
combustion at the prevailing pressure and enthalpy. 
These proportions are represented as algebraic 
functions of pressure and enthalpy; the constants 
in these functions being determined from inter- 
polations in equilibrium computations, made external 
and prior to the main computer code. 

(3) Oxides of nitrogen are calculated by reference to 
the kinetically-controlled reactions involving the 
species Ng, Og, 0, H, and OH. The scheme consists 
of nine reactions including the Zeldovich mechanism, 
as shown in Section 2.9. 


2,2.2 Properties 


Transport-property assumptions are such as to allow a 
composite property C characterise the 

composition of the gas-mixture with respect to the products 
of combustion resulting from the main hydrocarbon oxidation 
reaction. The quantity ? obeys a source-free conservation 
equation, and its transport coefficient is a function of 
position alone. This means that ? is influenced by convection 
and diffusion alone; and underlying its definition is the 
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assumption that the transport properties of oxidant and 
fuel are everywhere equal . 

2 . 3 Governing Differential Equations 

The dependent variables are the u-velocity, mixture fraction 
f, mass fraction of unburnt fuel ni^y» stagnation enthalpy n 
and the mass fractions of the species involved in the NO - 
reactions (i.e. NO, NOg, N, and NgO) . As mentioned earlier 
in Section 2.2.1, the concentrations of the species CO, COg, 

HgO, 0, H, Hg, and OH are determined by a chemical -equilibrium 
analysis, subsequent to the solution of the governing differential 
equations for f and 

The differential equations which govern the fluid flow for 
steady, two-dimensional axisyminetric flow are written* in the 
x-ii ( Von-Mis^s) coordinates as: 

x-direction momentum equation**: 


_ a .2 3U,. , 1 r ap . 3 ,, 3u^i 

9x aif; pu 3x 3x 3x^^ 


Conservation equation for species j : 


3m. n Q 3m* .• 3ni. 

^ ^ i (Fj + S.) 


where S . is the mass rate of creation of species j by 
J 

chemical reaction . 


(3) 


(4) 


■/ 


^Symbols are explained in the nomenclature (Chapter 10), 

**In the equations presented here and later in the report, 
y and r are the effective transport coefficients; the 
subscript 'eff’ is however largely omitted for the sake 
of convenience. 
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Conservation equation for stapcnation enthalpy h: 


aft 

9x 


9 f 2 p \ , 1 r 9 f yi 9h\ i 

9i[j pu ^9x 9x^^ 


• A«.-'s> <f» • ^ »] 


( 5 ) 


where the last two terms on the rigrht-hand side represent 
’’kinetic heating”, i.e. the effect on the enthalpy flux of 
the viscous stresses. 

Conservation equation for mixture fraction f: 


9f „ 3/^2 „ 9f. ^ 1 . 9 .p 9fv, 

9x 9il; 9i|)^ ■*’ pu ^9x ^^f 9x^^ 


(6) 


where the mixture fraction f is defined as 


f H - 5,,^) 


( 7 ) 


General form of governing: differential equations: 


Equations (3-6) may be written in a general form as: 


li = — (c + d + 

9x 9i|j 9t|j^ 


( 8 ) 


Note: C = C“it„ ). T /s and E„ = (m„„). ■, . 

ox ox-'inle.^ ^fu fu“^ inlet, 

where m is the oxygen mass fraction in the incoming oxidant 

OX 

stream and is the fuel mass fraction in the incoming fuel 
stream. 
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where 


(b 5 any one of the dependent variables 


and c, d, e are defined as; 


c = r pu r 


d = S^/pu 

e = ( r 

^ ■ pu ^3x <j) 3x 


)} 


( 9 ) 

( 10 ) 

( 11 ) 


Introduction of a non-dimensional stream function 

to( * as the independent variable gives the general 

form of the governing equations as: 


M = -L(c-^) + d + e 
Sx 9ti) 


( 12 ) 


where c is now defined as: 


c = 


lb 


(13) 


E 


and the definitions of d and e are as before 


2 . 4 Upstream Conditions 


Integration proceeds from left to right on Fig. 1. The 
upstream conditions, therefore, are prescribed in the form 
of values of the dependent variables along the radius at 
X = 0. The velocities of the incoming air and fuel streams 
(Fig.l) are uniform and constant, and equal to and 
respectively. The size of he fuel jet is determined by 
the overall equivalence ratio <j> . 

*ibp, refers to the value of the stream function ijj at the duct wall 
which forms the E (external or outer) boundary of the calculation 
8 domain. The value of i|j at the axis of symmetry which forms the 
I (internal or inner) boundary is set to zero by definition. 



2.5 Boundary Conditions 

The duct is made of three distinct sections. The radius of 
the wall at each section is described by an equation of the 
form: 

®wi “ (i = 1,2,3) (14) 

The wall temperatures are prescribed for each section of the 
duct by an equation of the form: 

T^i = (x-Xj^) + (x-Xj^)2 (i = 1,2,3) (IS) 

The other boundary is provided by the symmetry axis, through 
which there is no flux of any quantity at all. 

2 .6 Downstream Conditions 

The downstream condition is assumed to be that of zero 
gradient at the duct exit for all the dependent variables : 
i . e . , 

= 0 at the exit, (16) 

dX 

where dependent variable. 

2.7 Auxiliary Relations 

In this section some auxiliary relations, and the assumptions 
associated with their use, are introduced. These relations 
are used for the calculation of fluxes and certain properties. 

2.7.1 Flux laws 

Implicit in the differential equations given in Section 2.3 
are the flux laws for the transport of momentum, mass and 


0 


heat. These laws will now be summarised, for laminar and 
turbulent flows . 

(a) Laminar transport properties : 

(i) Viscosity : Newton's law of viscosity for momentum 
transfer, relating; the shear stress t to the local 
velocity j=cradient, through the laminar viscosity, 
y, can be expressed for simple flows as: 

T = u(9u/3y) (17) 

The evaluation of laminar viscosity for the present 
problem is now discussed. In general, the gas 
mixture at any point is composed of unburnt fuel, 
oxygen, nitrogen, and combustion products. In 
the calculation of viscosity, the last two are 
treated as identical in properties. The proportions 
of the components are supposed to influence the 
laminar mixture viscosity in proportion to their 
mass fractions in the local mixture. The viscosity 
of each of the components is assumed to increase 
as the one-half power of the absolute temperature. 
Thus , 

y. = y. , J = fu, ox, products (18) 

«J 

'^miKture = ^ “j '‘ 3 , (19) 

J 

Any other temperature function can be employed, 
and also any express ione connecting the mixture 
viscosity to the composition and individual 
species viscosities. 


(ii) 


Diffusion coefficient : Pick's law- of diffusion 
for mass transfer, relating; the diffusion mass 
flux J-, to the concentration gradient, through 
the exchange coefficient, r^, has the form: 

J. = -r. (3m./8y), for the species j (20) 

The diffusion coefficient V- is obtained from 

J 

the definition of Schmidt number. Thus, 

V. = u/Sc^ (21) 

It has been assumed in the solution procedure 
that the Schmidt ntimbers for fuel and oxygen 
(and all the other species) are equal to each 
other, and also uniform throughout the flow 
field. 

(iii) Thermal conductivity : Fourier's law of heat 
conduction, relating the heat flux Q to the 
temperature gradient , through the exchange 
coefficient, can be written as: 

Q = c(9T/3y) (22) 

where c stands for the constant^-pressure specific 
heat of the local gas mixture. 

In the present analysis, is obtained from a 
knowledge of the mixture viscosity u and the 
laminar Prandtl number: 

rg = y/Pr^ (23) 
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In general, the laminar Prandtl number (or the 
exchange coeff icient itself ) can, if desired, 

he specified as any arbitrary function of 
temperature and composition; this will make F^ 
depend upon temperature and composition in a way 
different from y. 


(b) Turbulent transport properties ; 

For a realistic modelling of the flow, the effect of 
turbulence has to be included whenever appropriate. 

The scope of the present contract does not permit the 
treatment of turbulence by means of a sophisticated model. 
Instead a simple zero-equation model of turbulence, 
which gives a realistic distribution of the effective 
viscosity with radial distance, is employed. 


(i) Viscosity : The turbulent shear stresses are linked 

to the local velocity gradient through a laminar- 
like stress-strain law: 


T = 


^eff 


3y 


(24) 


The turbulent viscosity is obtained from an 

empirical distribution of the turbulent shear stress 
as a function of the radial distance from the wall. 
The variation of the non-dimensional viscosity 
y^jj/(purS“) wi‘:h distance from the wall is as 
shown in Fig. 2. It should be noted that 

— — X 

ygj^j^/( purS*? ) increases linearly with distance from 
the duct wall and attains its maximum value at 
y/r = 0.15 whereafter it is assumed to remain 
constant at this value across the duct. 




13 





The skin-friction coefficient S is given by: 

S - 0.0225 (25) 

where is the laminar viscosity. 

The flow is approximately one-dimensional except 
for a small region near the wall extending from 
y/r - 0 to y/r = 0.15. This is reflected in 
Fig. 2 as a constant value of for the central 

region of the duct. 

(ii) Diffusion coefficient and thermal conductivity : 

The effective diffusion coefficients for the 
transfer of mass and energy are obtained from 
the definitions of Schmidt and Prandtl numbers 
respectively . 


Thus, for mass transfer, 

r 

eff 

^eff/^^eff ’ 

(26) 

and for heat transfer, 

r 

eff 

^eff/^^eff. 

(27) 


2.7.2 Temperature of the mixture 

The temperature of the mixture, T, at a given point in the 
flow field, is obtained from known local values of the 
stagnation enthalpy the velocity u, and the composition of 
the mixture as follows: 

'V. 2 

h - i u = E ra -3 (28) 

j=l 

where the species enthalpy h . is obtained by the method 

3 

described in Section 5.2 on thermodynamic data. 
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2.7.3 The ideal-gas equation of state 


For a p:iven temperature, the pressure and the density are 
asstmied to be related through the ideal gas-equation 



(29) 


where W the mean molecular weight of the gas mixture is 
given by 

NS 

W - 1/2 Cra./W.) (30) 

n = l 


2.8 The Chemical-Equilibrium Model 

2.8.1 Introduction 

The chemistry involved in the hydrocarbon-oxidation process 
(Sec. 2.2.1) will now be described. The oxidation reaction 
is assxmied to be a single-step one and results in some product 
species. These species are in chemical equilibrium at the 
prevailing pressure and enthalpy. Their concentrations are 
obtained from a model which is based on the minimization of 
Gibbs free energy. The method has been described by Gordon 
and McBride (Ref. 2). 

2.8.2 Species considered 

The equilibrium products of combustion are considered to 
consist of the following species: CO, COg, H^O, O, OH, Hg , 
and OH, together with unburnt Oq and CH^, and Ng. The last 
of these is assumed to be inert in the equilibrium reactions*. 


Ng is of course not inert in the NO^-f ormation reactions; 
but these will be treated separately (Sec. 2. 9). 
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2.8.3 Equations of chemical-equilibrium 


The chemical-equilibrium equations to obtain the 
concentrations of the equilibrium-product-species have been 
discussed in detail in Ref. 2. Here the basis of their 
derivation will be only briefly described. The condition of 
chemical equilibrium is the minimization of Gibbs free energy 
subject to the following constraints: (a) mass balance 
for the elements present in the system; (b) specified enthalpy; 
and (c) specified pressure. Since the resulting equations 
are not all linear, they have to be solved by an iterative 
procedure. The numerical method of solution of these equations 
is described in Section 3.5. Here the basic steps for 
obtaining the chemical-equilibrium composition are considered. 

2.8.4 Procedure for obtaining chemical-equilibrium compositions 

The basic steps for obtaining the concentrations of the 
species CO, COg* H, Hg, HgO, 0, and OH are: 

9 The stagnation enthalpy, h, the mixture fraction, f, and 
the mass fraction oi unburnt fuel, nre obtained 

from the solution of the respective partial differential 
equations (5, 6, and 4). 

o The mass fraction of unburnt oxygen, m„_, is obtained 
from: 


m = (m^„ 
ox f u 


st 


1 - f 


)s 


(31) 


st 


where f^^ is the stoichiometric value of f. Should 

the value of m be less than zero, during the 
ox 

iterative solution, it is set equal to zero (or a 
small quantity for programming convenience) . 
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The mass fraction of the equilibrium-product-species 
is given by: 


“pr = - “fu’ 


( 32 ) 


The mass fraction of nitrogen, in. 




is given by; 



1 - "'fu - “ox - “pr 


I m, 

3 ^ 


(33) 


where the summation is carried out over the species N, 
NO, NO^, and NgO which are determined through rate- 
controlled reactions. 


The enthalpy of the equilibrium-product-species, h , 

px 

is then: 

b „ = {ife - |u^ - I h.m. } /m (34) 

pr j 3 J 

where the summation is over all species other than the 
equilibrium-product-species (CO, COg, H, Hg, HgO, O, and 
OH) . 


For a given value of enthalpy (h ) and pressure, the 
equilibrium-product-species concentrations for stoich- 
iometric adiabatic combustion are obtained by means of 
interpolations using polynomial fits* in accordance with 
the method described in Section 3.5.4. These concentrations 
are then multiplied by a factor so that they add to 
i.e. 

*”00 ^COg ^ “o "’oh ^ “pr 


jft 

The determination of the polynomial coefficients is 
done external and prior to the main computer code. 
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« At this stage, the mass fractions of all species except 
the pollutant -species N, NO, NOg, and NgO have been 
determined. Since the latter are present in small amounts, 
the values of these from the previous iterative "sweep 
are used, and the temperature of the mixture obtained as 
per Section 3.7. 

o The next step is the determination of the mass fractions 
of the pollutant species N, NO, NOg, and NgO. This is 
considered in the following section. 

2 . 9 Treatment of Chemical-Kinetics 

2.9.1 Introduction 

Oxides of nitrogen are formed during the course of combustion 
reactions involving air as oxidant . These species are 
considered separately from the ecLuilibrium species since their 
formation is governed by much slower kinetically-controlled 
reactions. The determination of the concentrations of these 
pollutant species involves a treatment of chemical-kinetics. 
This is discussed in the following sub-sections. 

2.9.2 Species and reactions 

The chemistry involved in the formation of nitrogen oxides 
will now be described. The model employed incorporates one of 
the simplest and most widely used mechanisms for calculations 
involving nitric oxide formation, namely the Zeldovich 
mechanism: 

1. Ng + 0 NO + N 

2 . Og + N NO + O 


(36) 

(37) 


IS 


In addition to the above two reactions, the following reactions 
with the species Ng, Og, O, H, and OH may be involved in the 
formation of the oxides of nitrogen, and are considered in 
the present work: 


3. 

N + 

OH NO + H 


(38) 

4. 

H + 

NgO OH + Ng 


(39) 

5. 

NgO 

+ 0 NO + NO 


(40) 

6 . 

NgO 

+ M Ng + 0 + 

M 

(41) 

7. 

M + 

N + 0 ^ M + NO 


(42) 

8. 

HOg 

+ 0 $ NO + Og 


(43) 

9. 

NOg 

+ M $ 0 + NO + 

M 

(44) 


The choice of these reactions is based on a study of 
published literature (e.g. Ref. 5). Although some of these 
reactions have large rate constants, they usually involve 
species which are present in very small concentrations; hence 
their contribution towards the formation of nitric oxide is 
often small compared to that of reactions (1) and (2). 

Under fuel-rich conditions, reaction (3) may be significant. 

2.9,3 The chemical-kinetics equations 

The chemical-kinetics equations have been discussed in detail 
in Ref. 3. These equations are used to determine the concen- 
trations of the pollutant species. Here the equations will be 
only briefly described. The conservation equation for species 
j has been given in Section 2.3 (equation 4). Attention is now 
centred on the source-term in this equation. 

The source S. of species j is the mass rate of creation of 
species j by chemical reaction and is given by: 
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S ( a 1 . “ aV . ) 

ij 1J-' 


(B. 




The forward rate, Rj of reaction j, is given hy the 
Arrhenius expression: 


(45)* 


“d 


= 10«j 


T 


N 




otj 


NS 

TT ( pc 

k=l 


k 


<“’kr“ 




(46) 


The backward rate, R_- of reaction j, is given by a similar 
expression . 

In the calculation of rates of production of N, NO, NOg, and 
NgO by means of the above equations, the concentrations of 
the other species (which have already been determined by a 
chemical^equilibrium analysis) are assumed to remain unchanged. 
The justification for this assumption is that these species 
are mainly produced by reactions which are considerably faster 
than those involving NO production; therefore, the amounts 

A 

of these species consumed (or produced) by the NO -- reactions 
are negligible. The numerical method of solution of the 
species-conservation equation (4) is presented in Section 3.6. 

2.9.4 Procedure for obtaining chemical-kinetics compositions 

The steps for obtaining the concentrations of the species 
N, NO, NOg, and NgO, are: 


See Nomenclature for explanation of symbols. 
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I ... I J - J i... - I f t 

1 

9 The variables u, Si, "^ox’ mass fractions of 

the chemical-equilibrium products are first obtained 
(Section 2.8,4) , 


e The species-conservation equations are solved to obtain 
the mass fractions of N, NO, NOg, and N^O. 

o The mass fraction of nitrogen, mj^^,is adjusted so that all 
the species mass fractions add to unity: 



1 -S m., j = 1,NS except for N 
3 J 


(47) 


2.10 The Influence of Recirculation on Transport Properties 

In the diverging section of the duct, there is in reality 
a zone of recirculation, of extent depending on the angle 
of divergence. The effect of recirculation is to augment 
the turbulent transport properties, and to provide 
additional convective transport. This results in increased 
heat and mass transfer from the reaction zone to the 
relatively cold unburnt mixture, thus aiding flame stabilization. 

The present solution procedure however, was not designed to 
handle flow reversals. Therefore the effect of recirculation 
has to be artificially simulated if the flow is to be correctly 
modelled. This is done by multiplying the calculated transport 
t coefficient by an arbitrary factor. It is found that a factor 

of 100 results in the turbulent dif fusivities being of the same 
? order of magnitude as in a truly recirculating flow. The 

? resulting flame thickness is also of a magnitude as would be 

f expected under such circumstances (Private communication from 

; A. J. Juhasz, NASA Lewis Research Center, Cleveland, Ohio). 

I A more satisfactory procedure would be to include a feature 

'i 

I , permitting the computation of the extent and effects of the 
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recirculation. However, this feature was not called for in 
the present contract . 


3. 


THE NUMERICAL SOLUTION PROCEDURE 


3.1 Introduction 

The numerical procedure employed to solve the set of partial 
differential equations that govern the flow and combustion 
in the system considered is of the repeated-marching- 
integration type. If longitudinal diffusion were neglected, 
downstream effects would not be allowed to propagate upstream, 
and the solution could be obtained by marching through the 
integration domain (from the upstream to the downstream end) 
only once. In this problem, because of the importance of 
longitudinal diffusion, it is not possible to obtain the 
solution in one sweep: repeated marching is required, and 
also two-dimensional storage for the dependent variables 
(u, m^). 

3.2 The Grid and its Numbering 

3,2.1 The cross-stream arrangement 

The values of the fluid properties are calculated on a grid 
of which the nodes lie at constant values of the longitudinal 
distance x and the non-dimensional stream function w. 

Fig. 3 shows how the w coordinate stretches from the value 0 
at the I boundary (the symmetry axis) to the value 1 at the 
E boundary, the wall of the duct. Between w=0 and w=l lie 
N - 2 "grid points", i.e. arbitrarily chosen locations at 
which the values are computed; these are indicated by o's 
along the base of Pig. 3, through which pass vertical full 
lines. N is the total number of w nodes, including the 
boundary values 0 and 1. 

Halfway between adjacent pairs of grid points in the range 
2 to (N-1) are drawn vertical broken lines, dividing the 
v/hole 0 ) range into (N-1) intervals. The value of any 
dependent variable ^ Is supposed to be uniform within the 
interval ; the fact is illustrated by the step-like 
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Fip.3. .Diagram illustrating, for a fixed x:- 
the location of grid nodes; the distribution 
of a variable (j) ; the location of cell boundaries 
and the numbering system. 




(J) -distribution of Fig. 3; the horizontals stretch from one 
broken line to the next , 

The 4>'s in these intervals are distinguished by subscripts: 

'^i+i • • * '*’n- 2 ‘^N-1. The boundary values 
are and ({)^; and they may also be referred to as 4>j and 
4>^ respectively. 


3.2.2 The longitudinal dimensions 

The grid is a two-dimensional one; thus, corresponding to 
the w-array, there is also an x-array. The value of Ax, 
the increment in x, can be varied at will. As is usual 
in numerical work, small values of Ax increase accuracy, but 
also computer time and storage. The right choice always 
represents a compromise. 


3.3 The Finite-Difference Equations 
3.3.1 Motive and method 


A five-node finite-difference relation will now be derived 
connecting the value of a dependent variable c|)^ at a 
downstream node i, with those of:- (a) its two neighbors 
at the same x-value, d). ^ _ and (t>) its upstream 

1 — JL I JJ X*rl , D 

(i.e. previous -x) neighbor (|)- and (c) its downstream 

X , u 

neighbor This is to be a linear formula of the form: 


D 


. d) . ^ = A. d> . - « + B. ^ + E. (j) . + F. d) . + G. (48) 

X 1 ’1+1, D 1 ^1-1, D 1 ^x,U 1 ^i,DD X ^ ^ 


I t 

where A^»B^, etc., will be treated as constants, the 
expressions for which are derived by integration of the 
differential equation (12) over a control volume surrounding 
the node where (j)^ prevails. There will be an equation like 
(48) with individual coefficients, for each grid point, other 
than those on the boundaries, and for each of the dependent 
variables, u, h, m^^, and f . 
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In equation (48), the tf) values at the upstream (U) station 
can he regarded as known. The cj> values at the DD station 
are regarded as temporarily known, either from the results of 
a previous iteration, or from an initial ’guess' or estimate. 
It is therefore useful to combine the last three terms on the 
right-hand side into one, thus: 


t 



E . d) . + F . 4» . ^ * 

1 i,U 1 ^x,DD 1 


(49) 


The result is an equation which focusses all the attention 
on the unknown 4) ' s namely : 


T 



1 





i+l,D 


t 

+ B. 
1 


'I’i-l.D 


+ c. 

1 


It is now necessary to obtain expressions from which A. , 

t « j ^ 

and can be evaluated, by integrating the 
differential equation for (J) over an appropriate control 
volume. 


(50) 


3.3.2 Integration over a control volume 

Now the integration of the differential equation for 
namely equation (12), over a control voliune will be 
considered. Fig. 4 illustrates the control volume and its 
neighboring one which must be considered. First, some 
general remarks are made about the locations of the control 
volume faces. The two control volumes near the boundaries 
differ from all the others in that, if the lower edge is 
denoted by i-| and the upper by iH: 

for i = 2 

for i = N-1 


“i-i “ ° 




(51) 

(52) 
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Fig. 4. Illustration of a part of the x-to grid 

and of control volumes used for the deriv- 
ations of the finite-difference equations. 




whereas for all the other control- volume boundaries the 
appropriate formulae are: 


0} 




- I 


(“i-i + 


( 53 ) 


“i+i ° ^ (“i “i+l> 

With these definitions, it follows that the sum of all the 
control-volume "heights” equals that of the whole grid; 
thus : 

N-1 

i=2 

Thus, if conservation is satisfied for each of the individual 

$ 

control volumes, it will surely also be satisfied for the 
flow domain. 

I’or an individual control volume, integration of equation (12) 
yields, with subscripts U, D and M standing for "upstream", 
"downstream", and "intermediate": 

Ik 

i—^ 

{ j d.do)},. Term (iii), 

■ ■ ■ ■} _x . . ■ ■ ■ , ■ ‘ 


Term (iv) . 


(56) 


{ J e . dw 

i-h 


} 


M 


It is now necessary to employ the d> - profile assumption of 
Fipc. 3 and to introduce further assumptions permitting 
evaluation of the gradients and other terras in equation (56) 

It! t 

SO as to arrive at expressions for A , B , C , and D of 
equation (50). 

(a) The x-direction convection flux, term (i) 


Evaluation of term (i) in equation (56) is perfectly 
straightforward; the profile assumption implies: 


(i) 


^i ,D 


^i.U 


6x 


)(aj 


i+4 


- 


( 57 ) 


(b) The gj-direction diffusion flux, term (ii) 


The diffusive term (ii) in equation (56) can first be 
rewritten with the aid of the definition of c, equation 
(13). There results: 


Cc|^) 


(rr 

iH,D 


(58) 


and 


Cc|i) 


30)^- 

X— 2 


’f'E i-^.B 


(59) 


where the following relations between u) and r have been 
used; 



6 ( 1 ) 


(60) 


= rpu6r /(pg 

and 


& _ rpu 9 (61) 
3r " ipg 9(1) 

At this point, some simple presumtions are introduced 
about the values of and of the (p gradients, at the 
control volume boundaries. These are: 




(62) 


(li) 


i+l ,D 


(^itl ~ *^i)D 
^^i+1 - ^i>lJ 


(63) 


with similar expressions for the(i-i) location*. 


Then term (ii) becomes: 


(ii) = (Ti+4 - *i>D - 


Here the definitions have been introduced : 




(65) 


Modifications will be needed for the cell boundaries at 
ti)=o and at ci)-l (Section 3,3.5). 


and 


Vi = 

( c) The source of (}) , term (xii) 

Term (iii) in equation (56) represents the effect of 
sources of (j) within the control volume, per unit 
increment of x. In conformity with the foregoingr 
preference for downstream values, will be taken as 
a function of 0^ moreover, although sources are 
non-linear functions of 0 in general, a linear form will 
be adopted, by way of the definition: 


(iii) = - io._j) = 


s_. 


. + S. 0. 

1 1 ‘*'1, 


D 


(67) 


I 

Obviously, and must be chosen so that as the step 
shortens and 0^ tends to 0^ y the known upstream 
source term is recovered; 


thus : 


®i 


+ S . 0 . 

1 , 


U 




“i-i 


) 


Otherwise and S. are chosen so as to promote 
physical realism. 


( 68 ) 


( d) The x-direction diffusive flux, term (iv) 

The x-direction diffusive term (iv) in equation (56) 
can be written as: 
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1 ^ 

(iv) = -i- / fy 34>> , 


- “!-») { ^P - '^^rD , 


^DD “ ^D 


0,D 


- i^.n - *i.u, . , 1 

V _ ^ N),u — ;~ 

■^D *u pu6x 


“ ^“i+i - “i-j) tr* D<^ ' - °°x -> + r. „(^i^)} -1_ 


D i) 

i,ij 3. +3 X « x_ ^ ;; _ . 


DD " ^D ^D " ^u 

Thus the axial diffusion term may be written as an 

appropriately linearised source terra S. + S,' A. 
where: ^ ^ i,D* 

S. = ~ ^i-^)- r ^i.DD U 

i oufiv ~ zr~ — r, ^ + — ~J — 


(69) 


‘DD 


‘f',D Xj^'- 


s[ =.OH - { ^A.D , ^AiLl^ 

^DD “ ^D " ^U 


PuSx 


(71) 


Therefore the linearised parts and s' will include 
the contributions given by equations (70) and ( 71 ) 
respectively, in addition to the usual source term 
given by equation (68). 
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3.3.3 The finite-difference equation 


It is now possible to derive from the expressions for terms 

I I t 

(i) to (iv) a set of definitions of terms A^, C^, and 

of the finite-difference equation (50), They are: 




(72) 

1 

= 

(73) 

1 

= ■ “i-4^ 

(74) 

T 


(75) 


These coefficients can be evaluated from quantities which 
are known at the upstream station, and from the quantities 
(f)i which are as yet unknown. For this reason the 
technique of repeated marching or successive sweeps 
described in the next section is used. 

3.3,4 The technique of repeated marching 

The term of equation (74) involves the values of <}> at a 
section downstream of the D section, i.e. 'I’jl dd* 
purpose of solving equation (50) these values are regarded 
as temporarily known, either from the results of a previous 
iteration, or from an initial 'guess'. For this reason, the 
solution procedure requires several integration sweeps to 
obtain a converged solution; at each sweep, the values of 
pp from the previous sweep are used. Finally, when the 
changes in the values of the dependent variables from one 
sweep to the next one are within a specified tolerance limit, 
the solution is assumed to have converged. 
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3,3.5 Special featut^e relating to transfer across the E and I 
boundaries 


There is a special feature about the diffusive transfer across 
control-volurae sides which lie along the E and I boundaries, 
(Pig. 4). This is that the terms T^ in equations (72) and 
(73) must be given a special definition to account for the 
facts that; 

e at the symmetry (I) boundary * the (fj-gradients are zero; 

• at the wall (E) boundary, sharp variations of transport 
properties may render equations (65) and (66) inaccurate, 
unless special care is taken to insert an appropriate 

• special effects, such as kinetic heating or chemical 

reaction, sometimes make the diffusive flux proportional 
not to some other difference. 

To account' for^these, the following definitions are adopted: 


at I - 

where J. = diffusive flux of <J). 

The T's and 6<J)*s are set equal to zero at the axis of 
symmetry (1=2). 

The expression for T^ has been derived in Ref. 1. 

(phapter 6) and is not reproduced here. 

3.4 Solution of the Plnite-Diff erence Equations 

The equations which have to be solved for the unknown ct)*s 
(i.e. equation (50)) are of a form which enables the solution 
to be obtained using the well-known tri-diagonal matrix 
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algorithm (TDMA). Details of this method may be found, 
for example in Ref . 1 , 


3.5 Solution of the Chemical-Equilibrium Equations 
3.5.1 Solution procedure 

The chemical-equilibrium equations were discussed in 
Section 2.8. They are solved by the procedure given in 
Ref, 2. The salient features of this technique are described 
next . 

The Newton-Raphson iteration method is used to solve the 
equilibrium equations. The correction variables are (NLM + 2) 
in number, where NLM is the number of distinct elements in the 
system being considered (there are three in the present case, 
i.e. C, 0, and H) . The corresponding correction equations 
are obtained after appropriate linearization as follows. 


(a) The correction equations for the conservation of 

elements are expressed in terms of the non-dimensionalized 
Lagrange multipliers, as: 


NLM NSE 
S ( Z 
i=l k=l 





1 


NSE T 


NSE 
+ { Z 
k=l 


L 


NSE 






(b) The correction equation for the reciprocal of the 

mixture molecular weight, is: 

* m 
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NL!^ NSE 
S { S 
k=l 


L 




NSE 
{ 2 a, 
k=l ^ 


- ^m-> 


Aloga^ 


NSE h 

^ ^ k=l ^ MogT 


o - 
m 


NSE 
I a 
k=l 


k 


NSE g. 


( 78 ) 


(c) The correction equation for temperature is based on an 
enthalpy balance condition (i.e., enthalpy of the 
products is specified) and is: 


NLM 

Z 

i=l 


NSE h, NSE h, 

^Ik '’k “k 


NSE C NSE 

+ t ^ 

k=l ^ k=l 


2 

^k ^ RT ^ ^ 


AlogT 


h 


2£ 


RT 


NSE h, NSE h^ g. 


(79) 


where h is the enthalpy (sensible & chemical) of the 

It 

equilibrium-products and is obtained from equation (34). 

The correction equations (77), (78), (79) involve the 
unknowns ir^ (i=l, NLM), Aloga^j^, and AlogT. They are solved 
by a standard Gaussian elimination procedure. The correction 
matrix will become singular at the solution point when the 
coefficient of Aloga^ in equation (78) is identically zero. 
This potential singularity is avoided by a single interchange 
between the row involving the zero coefficient of Aloga^ 
and any other row (in practice, the row with the largest 


coefficient of Alogcr^ is selected) , All other diagonal 
elements are positive and do not require special treatment. 

The new values of the variables are then obtained as: 


AlogOj^ = AlogT - 


Sk, 


NLM 


(^) Aloga^ a-j^ TT. ^k=l,NSE 

(80) 


loga^^‘'*^+ Ti(Aloga^)^^\ i=-'l, NSE (81) 




(82) 


logT = logT^^^ + tl(AlogT)^^^ 


(83) 


where the superscripts indicate the iteration number, and 
n is an under-relaxation parameter (0<n<l). The determination 
of ri and the convergence criterion are discussed in 
Section 3.5.3. 

3.5.2 Initial estimate of species mole-numbers and temperature 

The initial estimate of the species mole-numbers is based on 
complete stoichiometric combustion. Thus if x and y are 
the number of kg-atoms of carbon and hydrogen respectively, 
per kg of mixture, the initial estimate is given by: 



(84) 

“h„o = y/2 

(85) 
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J 


- < 
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All other mole numbers are set equal to a small number 

10 -®. 

The initial estimate for temperature is obtained from an 
adiabatic enthalpy balance for the assumed composition and 
the given mixture enthalpy. The procedure is the same as 
that described in Section 3.7. 

3.5.3 Tinder -relaxation and convergence criterion 

The self-adjusting under-relaxation parameter p similar to 
that of Ref. 2 is used here. This parameter is determined at 
each iteration from: 

n = minimum of (1, Pg) (86) 

where p^ and Pg are quantities which are defined below. 

—8 

(a) For T, and species with (a./a„) >10 and 

■' ' m 1' m 

Alogaj^>0, p^ is defined as: 


_ = 0.2 ( 87 ) 

1 “ max ( j AlogT] , I AlogCTj^l , I Alogcfjj^ I ) 

This causes the correction of the variables T, a , and 

’ ra 

a- to be scaled so that none of the variables is increased 
1 

by more than a factor of 1.22 (=exp(0.2)) on any one 
iteration. This is different from the definition of 
p^ in Ref 2, which permits maximum increases by a 
factor of upto 7.39 (=exp(2)) on any one iteration. 

— 8 

(b) For species with (p./cr )<10 and Alogo.>0, p„ is 

X 111 X A 

defined as : 
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( 88 ) 


n 


2 


los (10”'^) - log 

Aloga^ - AlogOj^ 


This scales all the corrections so that the species 

—8 

with 0 ^ initially less than 10 increase to no more 
than 10”^. 

A convergence criterion similar to that recommended in 
Hef.2 is used. This is: 


C^) 1 AlogcJ ^ 1.0x10”^°, i=l,NSE 
m 


and 

lAlogCm 1 « 1.0x10 


(89) 


(90) 


3.5.4 Polynomial fits for equilibrium-product-species concentrations 

The equilibrium compositions are represented in terras of 
polynomials of enthalpy at different pressures. The 
polynomial coefficients are determined in computations external 
and prior to the main computer code. The steps for obtaining 
these polynomials are now described. 

The equilibrium compositions are computed by the method of 
Section 3.5.1 for several values of enthalpy at different 
pressures. At each pressure, the logarithm of the 
equilibrium-species mass fraction is represented as a 
polynomial of enthalpy. There are two distinct polynomials 
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(one over each of two ranges of enthalpy), both of third 
order, for each of the species and for each pressure 
considered. The logarithm of the species mass fraction is 
used since the variation in mass fraction over the enthalpy 
range is a few orders of magnitude (for species like O, H, 

OH etc.). In the main code, when the equilibrium composition 
is required for a particular enthalpy and pressure, the 
polynomials are used to calculate the species mass fractions 
at the given enthalpy and two successive pressures and 
Pg adjoining the given pressure P (i.e. P^<P<Pg) . The 
mass fractions at the pressures and Pg are then interpolated 
to give the values at pressure P. 

3.6 Solution of the Chemical-Kinetics Equations 

3.6.1 Solution procedure 

The chemical “kinetics equations were discussed in Section 2.9. 
They are solved by the procedure described in Ref .3; it will 
be only briefly described here. 

The procedure involves a point -by-point simultaneous 
solution of all the pollutant concentrations (i.e. N, NO, 

NOg, and NgO). The line-by-line procedure which is used 
to solve for other dependent variables (u, f, and 
is not suitable for the solution of the chemical-kinetics 
equations. The reason is that the concentration of any 
pollutant species at a point depends more strongly on the 
concentrations of the other pollutant species at the same 
point rather than its own concentration at neighboring 
points. The line-by-line procedure would, under such 
conditions, require an excessively large number of iterations 
to achieve convergence (e.g. Ref. 4). 

The Newton-Raphson method is used to solve the chemical- 
kinetics equations. The correction equations for the 
species mole numbers are expressed, after appropriate 


linearization as: 


■A* 


IT 


NSK M 

5=1 '“ij - “kj - “kj5 iioB^k) 


H 


= Ap(a^*-a.) - 2 (R^-R_^), i=l, NSK 


,j=l 


(91) 


Equations (91) involve the unknowns Aloga^^ (k=l,NSK). 

The equations are solved by a standard Gaussian elimination 
procedure. All the diagonal elements of the correction matrix 
are positive, so that no matrix conditioning is necessary. 

The new values of the variables are then obtained as: 


logc^ (I^+l) _ + ri( Alogcr^)^^\ i=l,NSK (92) 

where the superscripts indicate the iteration number and 
n is an under-relaxation parameter (0<ri<l). The determination 
of u, and the convergence criterion, are discussed below. 

3.6.2 Initial estimate of the mole numbers of pollutant species 

The initial estimate is obtained by setting the concentrations 
of the pollutant species at any grid node equal to those at 
the corresponding upstream node. For the very first set of 
cross-stream points, the initial estimates of the concentrations 
are set to a small number, 10~ to lo” . This procedure is 
followed when sweeping through the integration domain for the 
first time. For subsequent sweeps, the values at the 
particular grid node from the previous sweep are used as the 
initial estimates for the solution of the correction 
equations (91). 
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3.6.3 Under-relaxation and convergence criterion 

The self-adjusting under-relaxation parameter of Ref. 2 
is used without modification (see also Section 3.5.3). 

The solution at any grid node is assumed to have converged 
when the concentrations of the NO -species remain within 
a certain value from one iteration to the next. 

3.7 Solution of the Auxiliary Equations 

The auxiliary equations were discussed in Section 2.7. Of 
these only the equations dealing with the temperature of 
the mixture require an iterative solution procedure; the 
other equations involve straightforward algebraic expressions. 


The temperature equation (28) is solved by the Newton- 
Eaphson iteration method. The Newton-Raphson correction 
equation for temperature is: 


NS NS 

h - S (Tt) = ( r C , (T^) m.) iT, 




.A • .LA « V 1 

a 3 k 


j=l 


P3 


k 


(93) 


\ 


(94) 


th 


where Tj^ = the temperature at the k iteration 




the enthalpy of species j at temperature Tj^ 


C *(T, ) 
P3 k'' 


the constant pressure specific heat of species 
j at temperature Tj, (see Section 5.2). 


Convergence is monitored by computing I 1 each 

iteration; and, when its value falls below a prespecified 
limit, the iteration is terminated. 


42 


4. 


FDETHER FEATURES OF THE CALCULATION PROCEDURE 


i 


4 ^ 


4.1 The Treatment of the Wall Boundary 

The treatment of wall "boundaries has been discussed in 
Ref, 1, to which the reader is referred for details. 
The essential features may be suiraned up as: 


(a) Near the wall, the relation between pu and m is not 
linear as in other ref;ions of the flow field; this 

is accounted for by modifying the pu'x-m relation for the 
near-wall region. 

(b) Steep variations in transport properties occur in 
the near -wall region; this is accounted for by using 
appropriate values of the r^’s in this region. 

4. 2 The Calculation of Pressure Gradient 
4.2,1 The problem 

In order to solve the x-direction momentum equation, values 

must be ascribed to the pressure gradient, dp/dx. The 

pressure gradient must be such as to make the flow fit the 

cross-sectional area of the duct at the given downstream 

section. The procedure involves making an informed guess 

« 

of the pressure gradient followed by a comparison of the 
downstream area of the calculated flow with that available 
in the duct. A correction is then made to the velocity 
which diminishes the discrepancy of the areas. 


4.2,2 The solution adopted 


The cross-stream area 
streamlines and ijjg 


of the flow bounded by the 

L ^ 

is given by * 


Ai 2 = (pu)“^di|; 


(95) 
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Therefore, if the sensitivity of this area to pressure 
is to be determined, the right-hand side requires to be 
differentiated with respect to pressure. Thus; 


dA 


12 


dp 






( 96 ) 


Now the variation of u with p can be estimated by noting 
that, if the shear stresses are supposed to be uninfluenced 
by the pressure change, the x-directiou momentum equation 
(3) leads to: 


du 1 

dp ” pu (97) 

This equation can now be substituted into equation (96), 
together with introduction of the gas-law relation for 
isentropic compression: 


M 1 £ = 

dp Y p ^2 


(98) 


in which M stands for the Mach number. 
The result is : 





2 3 
p u 


(1-M^) 



(99) 


This relation is employed, first to calculate the 
pressure gradient needed at the beginning of a forward step 
and second, to provide a pressure adjustment at the end of 
the step so as to ensure a close fit of the flow area to 
the actual duct area. 



4.2.3 Fine adjustments of the pressure gradient 


Fine adjustments of the pressure gradient are required 
to avoid the calculation of negative velocities when a 
large adverse pressure gradient is estimated. 

This is achieved if the pressure gradient is adjusted to 
be no greater than (apu Ax, where a^O.5 and u^ ^.^ is the 

minimum u-velocity at the cross-stream plane upstream of 
that under consideration. 


Similarly, during the adjustment of pressure and velocity 
to match the flow area with the duct area, the adjustment 
is made in steps so that at no step is the change in 
pressure greater than (Ppu where 0s 0.5. 

4.3 The Calculation of Radii 
4.3.1 Formula for r 

From the definition of w as: 

m E (100) 

the following relation is obtained: 
r 

w = / rpudr// rpudr (101) 

o o 

r mi 

and / rdr = dw (102) 

_ a PU 

O O 


A quantity I is now defined as : 
w 

I = jr ™ doi 

6 pu 


(103) 
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therefore , 


I 


(104) 


2 

i.e. r = (21)^ (105) 

which jjives an expression for the radius. The integral 
I has to be evaluated in terras of the grid-point values 
of p, u, and w. This will now be considered for two regions. 

4.3.2 Evaluations of I for central regions of the grid 
For 2 e i N-2, 


^i-i-1 - ^i _ ^“i+1 

= ^ ^<^i+l -^i> ^ (p|)T (pu^“^ ^ 


( 106 ) 


Equation (106) permits the evaluation of Thus the 

radii may all be calculated once rg is known. This will be 

discussed next, along with the modification necessary in the 

evaluation of r^y-r™, . 

iN NMi 


4.3.3 Distance evaluations for edge regions 

rg is computed according to the following relation: 

Tg = Lig/CHCpu)^^ + Cpu)g}D (107) 


r^jj is obtained from: 

" ’^E (108) 
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where is evaluated from the stream-function 
coefficient. For details of the above two equations > 
the reader is advised to refer to Ref, 1 f Chanter 7). 

4.4. The Longitudinal Tri-Diagonal Matrix Algorithm CLTDMA) 

4.4.1 Definition and Capability 

The LTDMA is an implicit numerical procedure which 
determines dependent variable values for all nodes at a 
longitudinal station at a time by solving a set of tri- 
diagonal equations for each station at each iteration 
step. The LTDMA overcomes the drawbacks of standard 
iteration procedures which involve musing initial values 
(or values from the previous iteration.) of dependent 
variables at the transverse section downstream of the 
section currently being solved for; this restricts the 
propagation of downstream influences in the upstream 
direction to only one finite-difference cell for every 
iterative sweep. Thus with a fine grid it wild require 
a very large number of iterations for downstream effects 
to propagate upstream and convergence rates will' be slow. 

4*4r.2 Function of the LTDMA 

The function of the LTDMA is the adjustment of the average 
0 at each longitudinal (x-)' section. This adjustment is 
done between each forward step, by solution of an equation 
of the form: 

t 

where is the said adjustment, and j denotes the x-station 

J T 

The adjustment ^ . is to be added to every ^ at the' x-station 

J Iff 

4.4.3 Derivation of the coefficients a , b , c ,and d^ 

. These coefficients are derived in terras of the finite- ' 

difference coefficients which are being computed during the 
course of the normal solution procedure; additional - 
computation is thus minimized. 


Let ^ denote the finite-difference solution before application 
of the LTDMA, and ^ that after its application. Then, 


6 = ® + c|)' (110) 

The equation satisfied by ^ is of the form: 


t t I t 

D.. $..= A*. . +B.. ^ . +E.. ^ 

ij ij x+l,j aj 1-1,3 ij 1,3-1 


’ o ’ 

+ F. . §■ . . + G- - 

13 1,3+1 


( 111 )’ 


where the subscript i refers to the radial direction and j 
to the longitudinal direction. There is an equation of the 
above form for each internal node (i,j). 


The coefficient G. . includes the part of the linearised 

13 

source term S- without the axial diffusion contribution. 

1 t 

The contribution of the axial diffusion to S. is included 
, 1 

in as usual. 

I I 

Coefficients E.- and F*. are given by; 

13 13 


E. . = 

13 




6x 


pu6x 


^3 “■ ^ 3-1 


( 112 ) 


I 

E. . 

13 


pu6x 




""3+1 " ^3 


(113) 


jl; , ■ ■ ■ ■ T' . ■ ■ 

The derivation of the finite-difference coefficients A , 

B , C , and D , has been discussed in Section 3.3. These 
coefficients are stored one-dimensionally as A|, CI 
and but are represented by two subscripts here for the 
sake of clarity. 
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The solution 4> after application of the LTDMA satisfies 
the equation; 


I I I r 

13 'iJ 13 ^1+1,3 13 1-1,3 13 :l,3-1 


at each internal node (i,3)- 


(114) 


Summation over cross-stream points leads to: 


d>' . (d! . - a! . - b1 .) = C? F- . ) -t* (|) • 1 C? e1 0 

^ 3 i ij 13 13 3+1 i 13 ^3-1 1 13 


It I t I 

+ E(G. . + A. . - . + B. . - . + E. . + F. . - 

13 13 1+1,3 13 1-1,3 13 1 , 3-1 13 1,3+1 


1 





(115) 

r ( 

or, d.(|). = 

33 

aj+j+i 

t t I 

+ b.4). 1 + c. 
3 3-1 3 

(116) 

1 

where d . = 
3 

f'“id 

t T 

-A. - - B. .) 

13 13 

(117) 

1 

aj = 

Pij 


(118) 

! 

V 

se! . 
i 13 


(119) 

1 

2(g1 . 
13 

i 

+ - +B..®. ^ 

13 1+1,3 3.3 1-1,3 

T 

+ E . . . u 

13 1,3-1 


t 

+ F . . 

13 

cE>? . - d! . . V 

1,3+1 13 13) 

(120) 
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The term c. is zero for all ,j except the ones immediately 

iJ 

upstream and downstream of the x-station just solved for 
(by the transverse TDMA of Section 3.4). 


Thus c . = 0 


( 121 ) 


except at sections (j-1) and (j+1) where: 


M-1 


== EF. .(«►..-$?.) 

i IJ l.T 1.1^ 


ij 


( 122 ) 


j. ^ = EE..(*,.-4>T.) 

3+1 ij ^ ij 


(123) 


Equation (116) is solved by the standard TDMA procedure. 


4 , 5 The Iterative Procedure to Determine Fuel Concentration 

In the determination of the mass fraction of unburnt fuel, 
the source of fuel is appropriately linearised; this is done 
as follows (Ref. 1, Chapter 8). 

The source of fuel is given by: 


= PP2 m^^ m^^ exp (-E/RT) 


(124) 


where the term m„ m is linearised as; 

fu ox 


« T7 in m A ^ 
m, m = - fu,b 

fu ox 


”*fu,U %x 
"’fu,U ■ "’fUjb 


-m 


fu,D 


(125) 
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Here the following definitions have been used: 


U = refers to upstream values (already solved for); 

D = refers to downstream values (currently being solved 
for) 4 

The mass fraction of fuel m^^ ^ when combustion is complete 
(i.e. when either all the oxygen or all the fuel has been 
consumed) is given by : 

■"fu,b = ° If /I i 0 or If fp g (126) 

st 


f - f 
D St 


1 - f 


if 


f - f 
D St 


St 


1 - f 


St 


> 0 or if fj, > f3^.(127) 


(Note: The mixture fraction at the downstream station 
D is known at this stage, since the f-equation is solved 
before the m^^-equation) . 


fg^ = Stoichiometric value of the mixture fraction 


The mass fraction of oxygen m^.^ used in equation (125) 
is given by: 

* _ / " ^st. 

m TT “ 1 45 


(128) 


ox 


fu,U 1 - f 


St 


In the solution procedure, the upstream (U) values are used 
only when sweeping through the integration domain for the first 
time; on subsequent sweeps, the values from the previous sweep 
are used instead. 

When large forward-step sizes (Ax) are taken, the use of 
upstream values will result in a loss of accuracy. As a 
result, an iterative procedure is adopted. When the downstream 
value is obtained, it is used to re-calculate the source terra; 
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and a new value is thereby obtained. This iteration is carried 
out until the calculated values do not differ from one 
iteration to another within a prespecified tolerance limit. 

The temperature of the gas mixture is also recomputed at 
each such iteration, as described in Section 3.7. 

4,6 The One-Dimensional Calculation Procedure 

4,6,1 Purpose of one- dimensional calculations 

The purpose of the one-dimensional calculations is to obtain 
a good initial estimate of the solution before starting the 
two-dimensional calculations. 


4.6,2 Method 

The one-dimensional solution is obtained by an iterative 
procedure involving applications of the TDI.IA in the 
longitudinal direction. Once satisfactory convergence is 
obtained, the solution is inspected; if it is found 
plausible, the cross-stream (two-dimensional) effects are 
introduced. The solution procedure thus achieves rapid 
convergence. 


4.6.3 Finite-difference form of the equations solved 

Only two dependent variables are solved for: the stagnation 
enthalpy and the mass fraction of unburnt fuel, 

The mixture fraction f is constant with respect to the 
longitudinal distance in a one-dimensional situation. 


The finite-difference equation to be solved is: 


d-ij) . 
3 3 




+ b .(ft . 
1 ^ 3-1 


+ c 


(129) 


where 



value of dependent variable (h or ni^^) 
at section j. 


(130) 
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( 131 ) 


Ta ' A. 
4»>3 J 


} - Sx - X.) 




6x (Xj - 


(132) 


c . H term involving sources and wall fluxes 
3 

(after linearization) 


(133) 


d . = a . + b . - S . 

J 111 


A. = duct area at section j 

tJ 


(134) 

(135) 


4.6.4 Upstream conditions 

Inlet conditions at j=l are specified as follows. The mass 
fraction of unburnt fuel is assigned a value corresponding 
to the specified overall equivalence ratio, (j). Thus at 
j=l, 


m 


fu l+s/(0.232d>) 


m 


ox 


(f) *^fu 


^ " ’^fu “ '^ox 


(136) 


(137) 


(138) 
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The stagnation enthalpy is assigned a value (at j=l) which 
is the average of the fuel and air enthalpies at inlet 
weighted by their respective flow rates. 

4.6.5 Boundary conditions 

There is no flux of fuel at the wall. For the stagnation 
enthalpy, the diffusive flux to the wall is given by an 
empirical relation of the form: 

Jjf = 0.0015 pEr ~ ^wall^ 


This is incorporated into the f inite-difference equation 

by augmenting the coefficients c. and d.: 

J 3 

Cj = Cj + 0.0015 5Sr (140) 

d- = d. + 0.0015 pur (141) 

J J 

4.6.6 Downstream conditions 

A condition of zero gradient (for both S and at the 

exit plane is employed. 

4.6.7 Transport properties 

Transport properties are evaluated as described in Sections 

2 . 7 and 2.10. 

4.6.8 Thermodynamic properties 

A simplified treatment of the thermodynamic properties is 
presented for the one-dimensional calculations. 
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(a) 


The specific heat at constant pressure ^ is 
represented as a linear function of temperature for each 
species j ; and the mixture specific heat is 

obtained by averaging with respect to the mass fractions 
of the species. 


1 

p,mix 

= A . + B . T 

mxx mix 

(142) 

'mix 


(143) 

mix 

= EB .m. 

j J J 

(144) 

1 

'P» J 

= A. + B. T 
1 3 

(145) 


(b) For given stagnation enthalpy h and composition, the 
temperature of the mixture is obtained from: 


= S - «fu “fu = <Vlx ®mlK 


(146) 


4.6.9 Chemistry 

The chemistry is represented by a simple chemical reaction: 


CH^ + 2O2 COg + 2H2O 


(147) 


The mass fractions of the species are given by: 


f - f 


m, 


St. 


■n = - "i -s - " ' ) s, or zero if this ns negative. (148) 

Ug 1 - 


16 “ *^fu^ 


(149) 


^HgO = II (f - m^^) 


(150) 
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(151) 


^ "^COg " "’HgO 

4.6.10 Initial guess 

I’or Section 1 of the duct (Figf. 1), the initial guess 
corresponds to the unburnt conditions; and, for Section 3, 
the fully-burnt conditions. For Section 2, an exponential 
variation is employed. 


56 



5. 


THERMODYNAMIC AND ELEMENT DATA 


5 . 1 E lement Data 

The following information is required to describe the set 
of elements which make up the chemical species present in 
the system: 

• the element symbol (e.g. C, Q, H, andN); 

• the corresponding atomic weight. 


5.2 Thermodynamic Data 

The thermodynamic data for constant pressure specif c heat, 
enthalpy, and the entropy at one atmosphere for the chemical 
species are the same as those used in Ref. 2. These 
properties are expressed as polynomials in temperature: 


^ + ZgT + ZgT^ + Z^T^ + ZgT' 


RT ■ “ 2 “ — “ 4 “ T 


R 


= Z^lOgT + ZgT + 


ZgT^ Z^T^ ZgT^ 


a 


4 2^ 


(152) 

(153) 

(154) 


There are thus seven coefficients Z^.,..Z^ for each one 
of the chemical species for each one of two temperature 
ranges, 300°K to 1000°K, and lOOO'^E to 5000°K. 


The enthalpy equation (153) includes both the sensible 
enthalpy and the standard-state enthalpy of formation. 

The entropy s° includes the low-temperature enthalpy of 
formation as also the chemical and sensible contributions. 
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The entropy s at any arbitrary pressure is given by; 
s = s° - RTlog (p/Pq) (155) 

where = standard atmospheric pressure. 




KINETICS DATA 


The following information is required to specify the 
chemical kinetics of the system considered: 

• the set of elementary reactions making up the 
assumed chemical -kinetic mechanism; 

• the Arrhenuis constants for each elementary reaction. 


In the present study, only reactions of the following types 
are considered; 


A 


B -5- 

C + D 

, M0DE=1 

(156) 

AB 

■i’ 

M + 

A + B + M 

, M0DE=2 

(157) 

A + B 


M 

AB + M 

, M0DE=3 

(158) 


The forward reaction rate constant is expressed as: 

k^ = Aj T exp C-T^^^^/T), for reaction j (159) 

The Arrhenius constants Aj , , and are supplied for 

each one of the reactions considered. 


The reverse reaction rate constant may either be directly 
specified as above, or it may be calculated from a knowledge 
of the forward rate constant and the equilibrium constant; 


k - 


(160) 
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7, RESULTS AND DISCUSSIONS 

7 . 1 Introduction 

In this Chapter, results are presented for: 

(i) one-dimensional calculations; 

(ii) grid-dependency tests; and, 

(iii) four sample cases, specified by NASA Lewis Research 
Center. 

These are now individually discussed below. 

7. 2 One-Pimensional Calculations 

One-dimensional calculations were carried out in accordance 
with the method described in Section 4.6. These calculations 
are useful in obtaining preliminary results and for qualitative 
comparisons; they also involve considerably less computational 
times than a full two-dimensional calculation. 

The problem-specification for the one-dimensional calculations 
is as for Test Case 1 (Tables 1, 2, 3, and 4 at the end of 
this Chapter) . 

7.2.1 The influence of pre-exponential factor on flame position 

The pre-e 2 q)onential factor of the hydrocarbon oxidation 
reaction (factor C^ of equation (2)) was varied to test its 
influence on the position of the flame in the duct. An 
approximate value of this factor was first obtained from 
Spalding's centroid rule based on one-dimensional flame 
theory (Ref. 6), and it was then varied in the neighborhood 
of this value. 

Figure 5 shows the axial temperature distribution for 
three different values of this factor. Thus a higher value 
of the pre-exponential factor causes the flame to move 
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Fig. 5. The dependence of flame position on the 

preexponential factor P for the hydrocarbon 
oxidation reaction. 




upstream and vice versa. The behaviour is as expected since 
the onset of chemical reaction is earlier in the duct the 
higher the value of the pre-exponential factor. A value 
of 0.003 was chosen for the results described in the 
following SecLions. 

7 . 3 Grid-Dependency Tests 

Computations were performed with several different lateral 
and axial grid distributions to study the grid- dependency 
of the solution. All these computations were performed for 
the specifications of Test Case 1 (Tables 1, 2, and 3). 

Since the main region of interest is the diverging section 
of the duct wherein the flame exists, the number of 
longitudinal grid nodes in this section only was varied in 
these computations. A uniform axial grid distribution in 
the diverging section was used for all these runs. The 
lateral grid had five points, non-unif ormly distributed. 

Figures 6, 7, and 8 show the results of the grid-dependency 
tests for two-dimensional computations. In Figure 6 are 
shown the axial temperature distributions along the duct 
centerline for different numbers of longitudinal grid nodes. 
Figures 7 and 8 show the influence of changing the number 
of lateral grid nodes. 

The solution is clearly grid-dependent with respect to the 
axial grid. No general conclusion can be drawn about the 
influence of the axial grid on the flame position. 


The dependence of the solution on the lateral grid is small. 
This is due to the largely one-dimensional nature of the 
flow. 
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calculations. 
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Figure 9 shows the results of one-dimensional computations 

for different axial grid distributions. Here again the 

solution is grid-dependent, though not as strongly as in 

the corresponding two-dimensional computations. There is 

not much significant difference in the solutions with 30 

and 40 grid nodes; this shows that grid-independency is 

being approached with increasing number of grid nodes. | 

7,4 Results and discussions of test cases i ^ 

In this Section, the results of four test cases are 
presented. Tables 1, 2, and 3 summarize the geometry, i 

initial conditions, and temperature boundary-conditions 
for the four cases . 

To demonstrate the general capabilities of the solution 

procedure, the results of the first test case are discussed ’S 

r 

in detail. The results of the other three cases are discussed 
in -terms of the dependence of temperature and HO- concentration 
on the overall equivalence ratio which v/as O.6, OiS and 
1.0 for these cases. 

First , some computational details which are common to all 
test cases are described. 

7.4.1 Computational details 

( i ) Variables computed : 

At each grid node, 18 variables were computed. The 
variables obtained from the solution of partial ■ 

differential equations were: the axial velocity u, 

f\j 

the stagnation enthalpy n, the mixture fraction f, 
the mass fraction of unburnt fuel and the mass 

fractions of the species N, NO, NO^ and N^O. The 
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variables obtained through the use of auxiliary 
algebraic equations were: the mass fractions of the 
species CO, CO , H, H , H 0, N , 0^ OH, and 0 , and 

Z Z 2. 2 z 

the teirrperature . 

(ii) Grid used ’.Tbe results of the Jr id- dependency tests 
discussed above show that even with fine axial grid.dist 
ibutions (e.g. 40 points in the diverging section of 
the duct), a grid-independent two-dimensional solution 
was not obtained. Therefore, to avoid unduly excessive 
computational times by further axial-grid-refinement, 

it was not attempted to obtain a grid- in dependent 
solution for the test cases. The solution is not 
strongly dependent on the lateral grid and grid- indepen- 
dency in this direction was achieved easily. 

The grid used in all the test cases had 10 nodes in the 
radial direction and 35 in the axial direction. 

Twenty nodes were placed in the diverging duct section 
(Section 2, Pig. 1) and the rest in Sections 1 and 3. 

The distribution of the nodes was non-uniform in 
Sections 1 and 3 and uniform in Section 2. The axial 
. distribution of the grid nodes for all the test cases 
is shown in Table 4. The lateral grid distribution in 
terms of the non-dimensionalized stream function u is 
shown in Table 5 . The radial locations of the grid 
nodes was computed by the program (as in Section 4.3) 
and varied from one axial location to another. 

(iii) Convergence : 

The convergence criteria adopted were: 

d The variables u, f , and which were solved by 
a line-by-line procedure, should remain within 0.5% 
of their local values from one iteration sweep to 


the next. 


• The mass fractions of N, NO, NO 2 , and W 2 O which were 
obtained by a point-by-point solution procedure should 
remain within 0.1% of their values from one iteration 
to the next. 

Civ) Number of iterations ^ 

Typically, 10 to 20 integration sweeps were necessary 
to obtain a converged solution for the variables u, 
f and The point-by-point solution for the mass 

fractions of N, NO, NO 2 , and N 2 O required approximately 
10 iterations at each point. 

(v) Computing time : 

The computing time for one integration sweep for the 
grid size employed here was approximately 8.5 seconds 
on the CDC-6500 computer. 

(vi) Program adaptation : 

No special program adaptation was necessary for the 
test cases reported here. The parameters defining 
the test case were easily incorporated into the program 
through appropriate Fortran variables. 

(vii) Physical and chemical data : 

The thermochemical data for all the species were 
obtained from Ref. 2. Reaction rate data are given in 
Table 6 . 


7.4,2 Results of Test Case 1 


The problem specification for Test Case 1 is given in 
Tables 1-5. Eigures 10-14 show in detail the results of 
this test case. Since the diverging section of the duct 
(Section 2 , Fig.l) is the region where the phenomena of 
interest occur, the figures show the details for this 
section only. 

Figure 10 shows the velocity profile at various axial 
locations in the diverging section of the duct. At any 
axial location (except the first one), the profile is 
uniform over a large part of the duct cross-section and 
decays to zero in a narrow region near the wall. The 
reason for the uniformity of the velocity profile is the 
relatively large value of the turbulent viscosity (refer 
to Section 2.10), which causes rapid mixing of momentum. 

The predicted velocity profile at entry to this section is 
as would be expected in a developing turbulent flow. 

If recirculation were accounted for, there would be a region 
of flow reversal near the wall. Consequently the velocities 
in the central region would be • larger in magnitude. The 
influence of this on flame position is discussed below. 

Figure 11 shows the temperature profile at various axial 
locations. On entry into the diverging section, the cold 
mixture of fuel and air is heated by conduction from the hot 
wall. Heat transfer within the fluid is rapid because of 
the relatively large turbulent diffusivities in this section 
of the duct. Ignition first occurs in a region close to 
the duct wall as shown by the temperature profile at x=0.66. 
Further downstream the profiles are uniform with a small 
near-wall region wherein a sharp radial gradient of 
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Fifr. 10. Velocity distribution at various axial locations. 
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Fig. 11. Temperature distribution at various axial locations. 


temperature exists. 


Thus both the velocity and temperature profiles of Figures 
10 and 11 demonstrate that the solution is essentially 
one-dimensional over a large region of Interest . 

Figure 12 shows the longitudinal profiles along the duct 
centerline of temperature and mass fractions of fuel and 
oxygen, and the convective fuel flux across cross-stream 
sections. 

There is a sharp rise in temperature immediately after 
entry into the diverging section of the duct. The reason 
for this discontinuous behaviour of temperature is the 
sudden increase in turbulent diffusivity by a factor of 100. 
The rest of the temperature profile is as expected. There 
is a gradual rise in temperature in the preheat zone 
(x =: 0 .61-0 .66) , and then a rapid rise in the reaction zone 
(x 0.66-0.68). Towards the end of the diverging section 
the temperature drops slightly, due to heat loss to the 
duct wall {temperature 1110°K) . 

The flame thus exists at an axial location of approximately 
x=0.66 to 0.6S, The position of the flame is a function 
of several parameters. With increasing mass flow rates and 
velocity the flame moves downstream. Thus if recirculation 
were considered, due to larger velocities in the central 
region of the duct, the flame would move downstream in 
this region . However , due to rapid mixing in the near- 
wall recirculation region, ignition would occur close to 
the wall and at a point further upstream than would be the 
case if there were no recirculation. Thus a curved flame 
would exist in the duct, stretching along the duct wall 


78 


down to the centerline of the duct . 


Like the temperature profile, the fuel profile also 
exhibits a discontinuity on entry into the diverging 
section. Due to the sudden large increase in the turbulent 
diffusivity, there is a rapid mixing in the radial direction, 
and hence a discontinuity in the axial profile. After this 
initial mixing, the gases are fairly preraixed, and the 
subsequent decay of fuel concentration with longitudinal 
distance is similar to the behaviour in a flat premixed 
flame. The behaviour of fuel concentration is seen to be 
consistent with the temperature distribution. 

The convective flux of fuel, being the integral flow rate of 
unburnt fuel through a given duct section, does not exhibit 
any discontinuities. It gradually decays with the passage 

of the gases through the flame zone, as expected. 

The oxygen concentration along the centerline rises initial- 
ly due to mixing in the radial direction and subsequently 
decreases as oxygen is consumed due to chemical reaction . 
Finally it levels off at a value which corresponds to the 
excess oxygen in the oxidant stream. 

Figure 13 shows the longitudinal profiles along the duct 
axis of the species involved in the NO reactions (i.e. N, 

NO, NOz , NzO, O, and OH) . The temperature profile is also 
sketched in for reference 

The NO concentration peaks at a point slightly downstream 
of the main reaction zone (i.e. at x=0 . 68m) . This behaviour 
is as expected since the formation of NO is governed by 
kinetically-controlled reactions which are much slower than 
the hj^drocarbon-oxidat ion reactions which rapidly reach the 
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!Pie:. 12: Longitudinal profiles of temperature, mass 
fractions of fuel and oxygen along duct 
axis and of convective flux of fuel(Case 1). 
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fuel flux 





Temperature 







equilibrium state „ After reaching a maximum value 
of 3.295E-7at x=0„6Sm„, the NO mass fraction decays 
slightly towards the end of the diverging section of the 
ducto This drop is due to the dropping temperature. 

Figure 14 shows the longitudinal profiles of some of 
the equilibrium-product-species. As expected, the 
concentrations of the intermediate products CO,H, 
and H 2 ( as also 0 and OH in Figure 13) all have a 
maximum value within the main reaction zone. The 
drop in the concentrations of these species from their 
maximum values as one proceeds further downstream is 
due to their being converted into the stabler product 
species CO 2 and HgO, THe final product-species COz 
and H 2 O show a continuous rise and levelling off in 
the post-flame region. The formation of these two 
species is consistent with the temperature rise and 
fuel consumption through the flame zone. 

7.4.3. . Comparison of Test Cases 2, 3, and 4 

Test Cases 2 , 3, and 4 differ from each other in 
respect of the overall equivalence ratio. This is 
0.6, 0.8, 1.0 respectively for the three cases. 

Figure 15 shows the longitudinal profiles of tempera- 
ture and NO mass fraction for the three cases. The 
behaviour is as expected. The maximum temperature in 
the flame zone increases as the overall equivalence 
ratio is increased from 0.6 (fuel-lean) to 1.0 (stoic- 
hiometric), and there is an upstream movement of the 
flame. Thus the onset of chemical reaction occurs 
earlier in the duct for stoichiometric mixtures than 
for fuel-lean mixtures, due to the faster reaction 
rates occuring under stoichiometric conditions. 
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Fig. 15: Longitudinal profiles of tenroerature and NO 
mass fraction along duct axis for test cases 
2, 3, and 4. 
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The maximum concentration of nitric oxide increases 
as the equivalence ratio is increased from 0.6 (fuel- 
lean) to 1.0 (stoichiometric). 

The formation of nitric oxide is influenced by the 
equivalence ratio through its influence on combustion 
temperatures and the availability of oxygen, as 
discussed below; 

(a) The combustion temperature: Since nitric oxide 
is a high-enthalpy species relative to molecular 
nitrogen and oxygen, its formation is favoured 
by the existence of high combustion temperatures. 

(b) Availability of oxygen: The availability of 
oxygen is dependent directly on the air-fuel 
ratio. The formation of nitric oxide is low for 
low air-fuel ratios and increases to a maximum 
for mixtures having approximately 10% excess air. 
as compared to stoichiometric mixtures. This 
increase is due partly to the increase in the 
availability of oxygen and partly to increasing 
combustion temperatures. Further increases in 
the air-fuel ratio decrease the nitric oxide 
formation since the lower combustion temperatures 
offset the increased availability of oxygen. 

• Figure 1& confirms the-aboy.e conclusions. The 
maximum nitric oxide mass fraction increases from 
3.05x10“^ at 0-0.6 to 5.88x10“'* at 0=1.0. In 
addition it is observed that the formation of NO 
occurs mostly in the post-flame region in all the 
cases. This confirms the widely observed behaviour 
that the formation of NO is kinetically controlled 
and lags the temperature rise. 


Table 1. Geometry specification of Test Cases 1-4 


A (m) 

3 

B 

2 

X (m) 
2 

X (m) 

3 

0 03 

0,2 

0.0 

0.7 


B=B=C=C=C=x=0 for all Test Cases. 

13 12 3 1 


(Refer to equation (14) of Section 2.5) 


Table 2. Initial conditions of Test Cases 


Test 

V (m/s) 
^o 

V„(m/s) 

o 

1 

6 

0, 6 

2 

6 

0.6 

3 

6 

0.6 

4 

6 

0.6 


TaC^K) T^(^K) PQ(atm) (j) 


Table 3. Temnerature boundary-condition of Test Cases 1-4 


n (°K) D (°K) D (°K) E (°K/m) E (°K/m) E (°K/m) 


810 1110 1110 


- 500 


F = F = F = 0 for all Test Cases. 

1 2 3 


(Refer to equation (15)''s3f Section 2.5) 
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Table 4. Longitudinal grid distribution 
for Test Cases 1-4. 


I 

X (m) 

1 1 

0,000 

I ^ 

0.100 

1 ^ 

0.200 

4 

0.300 

5 

0.400 

6 

0.500 

7 

0.600 

8 

0.605 

9 

0.610 

10 

0.615 

11 

0.620 

12 

0.625 

13 

0.630 

14 

0.635 

15 

0.640 

16 

0.645 

17 

0.650 

18 

0.655 

19 

0.660 

20 

0 . 665 1 

21 

0.670 1 

22 

0.675 1 

23 

0.680 1 

24 

0.685 

1 25 

0.690 

26 

0.695 

27 

0.700 

28 

0.750 

29 

0.800 

30 

0.900 

31 

1.000 

32 

1.100 

33 

1.200 

34 

1.250 

35 

1.300 



Table 5. Transverse grid distri 
bution for Test Cases. 


Test 

Cases 


2. 979E-3 
5. 958E-3 
8.937E-3 
3.641E-2 
2.400E-1 
3.800E-1 
5.500E-1 
7.500E-1 
1.000 


2 

3 

01 

01 

0- 

0 

4.418E-3 

5.826E-3 

8.837E-3 

1.165E-2 

1.326E-2 

1.748E-2 

5.400E-2 

7.121E-2 

2.400E-1 

2.400E-1 

3. 800E-1 

3.800E-1 

5.500E-1 

5.500E-1 

7. 500E-1 

7.500E-1 

1.000 

1.000 


7.203E-3 

1.441E-2 

2.161E-2 

8.803E-2 

2.400E-1 

3.800E-1 

5.500E-1 

7.500E-1 

1.000 















Table 6. Reaction rate data (in S.l. Units) 


No. 

Reaction 

A 

B 

*^act 

Ref. 

1 

N+NO ^ Nj+O 

1.500E10 

0 

0 

3 

2 

N+O 2 ^ NO+0 

5.998E6 

1.0 

3.172E3 

3 

3 

OH+N + H+NO 

5»998E8 

0 . 5 

4.028E3 

3 

4 

H+N 2 O ^ OH+N 2 

7.998E10 

0 

7.553E3 

3 

5 

NjO+O + NO+NO 

1 .OOOEll 

0 

1.500E4 

3 

6 

N 2 O+M Nj+O+M 

l.OOOEll 

0 

2.51SE4 

3 

7 

N+O+M “>* NO+M 

6,397E10 

-0.5 

0 

5 

8 

NO 2+0 t NO+O 2 

1 .OOOEIO 

0 

3.000E2 

5 

9 

NO 2 +M t O+NO+M 

1.099E13 

0 

3.300E4 

5 


Forward rate constant = AT exp (-T^^^^/T) 

Reverse rate constant obtained from forward rate and 
equilibrium constants. 


Hydrocarbon oxidation reaction rate = ^ 


& 
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8 . 


CONCLUDING REMARKS 


The present computer program has successfully undergone some 
tests, e.g., the program has been used to predict the 
hydrodynamics and chemistry for four cases involving 
different inlet and boundary conditions. These tests 
show that the predictions are qualitatively plausible. 

Detailed experimental data are required to assess quantitatively 
the validity of the niimerical procedure and the physical 
hypotheses involved. 

In concluding this report, some consideration is given to what 
further developments would be fruitful. The following 
improvements may be envisaged to make the code approach more 
towards physical realism. 

(a) Turbulence modelling : 

The present version of the code incorporates a simple 
zero-equation model of txirbulence. A more sophisticated 
model would be the two-equation model employing the 
kinetic energy of turbulence and its dissipation rate, 
as the dependent variables of differential equations. 

( b ) Recirculation : 

The inclusion of a means of calculating the recirculating 
flow, if conditions should arise which give rise to it, 
will be one more step towards physical realism. 

Techniques to enable the treatment of recirculation with 
the present stream function coordinate system are under 
study (Private Communication from D B Spalding of CHAM 
Ltd., London). Alternatively, recirculation can be 
treated by a special program accounting for elliptic 
effects in the recirculation zone. A proper treatment 
of recirculation will also result in a correct prediction 
of the transport properties thereby avoiding their 
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augmentation by arbitrary factors as has been done 
in the present program. 

The treatment of recirculating flows using fully 
elliptic solution procedures is an area where considerable 
work has already been done at CHAM Ltd. Computer codes 
(e.g., Ref. 8) based on the SIMPLE ( Semi-I^mplicit 
Method for Pressure-Linked Equations) algorithm of 
Patankar and Spalding (Ref. 9) can be easily adapted to 
handle the present flow situation. 

(c) Lateral momentum equation : 

In the present solution procedure, pressure has been 
assumed to be uniform across the duct. The inclusion 
of the lateral momentum equation allows for the pressure 
to be non-uniform across the duct. Its chief advantage, 
in the present context, is that it allows incipient 
recirculation to be detected. 

(d) V/all temperature : 

The wall temperature distribution has been specified 
in the present program. The inclusion of the 
calculation of wall temperature into the solution 
procedure represents one step further towards physical 
realism. The solution method would then involve extending 
the finite-difference grid into the solid material. 

When the enthalpy (temperature) equation is being solved, 
account would be taken of: (i) radial conduction in the 
solid material; (ii) axial conduction in the solid 
material; (iii) radiative transfer along the duct; 
and (iv) heat sources in the solid material. 


(e) Hydrocarbon-Air kinetics: 


The consideration of detailed hydrocarbon -air 
kinetics as distinct from a simple Arrhenius 
expression would shed more light on the processes 
occuring at a molecular level; the formation of 
nitric oxide would also be predicted more accuratel;?. 
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NORtENCLATURE 


Symbol 


Meaning 


Ntunber of kg - atoms of element i 
per kg mole of species j , 


till 

9* j b j o j d 


LTDMA coefficients • 


Ai, B.. C, 


Constants in duct wall equation. 


Ai , , . . . 


Coefficients in the finite-difference 
equations . 


Duct area at section j , 




Arrhenius pre-exponential factor. 


^3- 


Specific heat coefficients, 




Number of kg-atoras of element i 
per kg of mixture. 


® 3 ’ 


Exponent on temperature in Arrhenius 
rate expression. 


C, C, 


Transport-property term in 
differential equation. 

Specific heat at constant pressure 
of the mixture. 


Longitudinal Tri-Diagonal Matrix Algorithm. 
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Symbol 


Meanings 



Constant-pressure specific heat of 
chemical species ,j . 


d 


Source term in differential equation. 


Df, E^, Constants in the duct wall-temperature 

equation . 

e Axial diffusion term in differential 

equation , 

E Activation energy. 


f 


Mixture fraction. 



Stoichiometric value of mixture fraction. f 




Ideal-gas partial molal specific 

Gibb's function of species J, per kg-mole. 


G Mass flow rate per unit area. 

h Stagnation enthalpy. 

Heat of combustion of fuel. 



Enthalpy of chemical species j . 


mix 


Mixture enthalpy (sensible + chemical). 


I 


Integral appearing in distance 
calculation . 


Diffusion mass flux. 
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1 


Symbol 


K. 


m 


fu 


ra. 





M 

M 


n 





N 

NLM 

NS 


t 1 I [ 1 


Meaning 

Backward reaction rate constant. 
Forward reaction rate constant. 
Equilibrium constant. 

Length. 

Mass fraction of unburnt fuel. 

Mass fraction of chemical species j . 

Mass fraction of oxygen. 

Mach number. 

Number of chemical reactions. 

Mole number. 

NS , 

— £ ot . ■ 

"i^lij = Molecularity of forward 
reaction j , 

I 


As n . , but for backward reaction j 
3 


Number of cross-stream grid nodes 


Number of elements. 


Number of chemical species in the 
system . 


/ 
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Symbol 


Meaning 


NSE Number of chemical species whose 

concentrations are determined by a 
chemical-equilibrium analysis. 

NSK Number of chemical species whose 

concentrations are hinetically 
determined. 

p Pressure. 

P Arrhenius pre-exponential factor. 


Pr 


Pr 


ef f 


0 


Initial pressure. 

Standard atmospheric pressure. 
Laminar Prandtl number. 
Effective Prandtl number. 

Heat flux. 

Radius . 


R 


Universal gas constant. 





Mass rate of creation of species by 
forward and reverse reactions j, 
respectively . 

Radial location of duct wall. 


Mass of oxygen per unit mass of fuel 
in stoichiometric combustion. 
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Symbol 


Meaning 


S, 


s . , s. 
1 ’ 1 


'act ,j 


T 


ao 


fo 


u 


V 


ao 


Ideal-gas specific entropy of 
species j . 

One-atmosphere value of s - . 

■J 

Skin-friction coefficient. 

Schmidt number. 

Parts of linearised source term. 

Source term of dependent variable (jj . 
Temperature . 

Terra representing diffusive effects 
in finite-difference equations. 

Activation temperature for reaction 
j, i.e. activation energy divided by 
the universal gas constant. 

Air temperature at initial axial 
position . 

Fuel temperature at initial axial 
position. 

x-direction velocity. 

Air velocity at initial axial position. 



Fuel velocity at initial axial position. 



Symbol 


Meaning 


W 


Mean molecular weight of gas mixture. 



Molecular weight of chemical species j . 


X 


Axial distance. 


X Number of kg- atoms of carbon per 

kg-mole of hydrocarbon fuel, 

y Number of kg-atoms of hydrogen per 

kg-mole of hydrocarbon fuel. 


Cl=l,7) 


Coefficients in thermochemical data 
equations . 


Greek Symbols 


ot • 




a 


3 


1 



6x, 6x 
Alp 


Stoichiometric coefficients of species 
i in chemical reaction j , as a reactant 
and as a product respectively. 

Third-body stoichiometric coefficient 
in reaction j . 

Ratio of specific heats (C^/C^). 

Exchange coefficient for dependent 
variable (p, 

Kronecker delta function. 

Grid distance in x-direction. 

Grid distance in ip-direction . 
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p 

a . 
J 



Meaning 

Grid distance in (o-direction . 
Under-relaxation parameter. 

Thermal conductivity. 

Effective viscosity. 

Laminar viscosity. 

Viscosity of chemical species j. 

Constant in viscosity law for species j . 
Defined as 
Defined as (ni„ ) 

inlet . 

Defined as /s . 

in] et 

Lagrange multipliers in Gibbs function 
minimisation equation. 

Density . 

Mole number of species j, kg-moles 
j/kg mixture. 

Average of cr^ over adjacent nodes, 

J 

weighted by respective finite-difference 
coefficient. 
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Symbol 

a 

m 


Meaning 

Reciprocal of mean molecular weight 

NS 

of gas mixture e i cf 

i=l ^ 


* 

I 

<i> 

* 

Subscripts 


Shear stress. 

Dependent variable. 

Equivalence ratio. 

LTDMA correction of dependent variable. 
Solution before application of LTDMA, 
Stream function. 

Non-dimensional stream function. 


b 

D 

DD 

E 


ft 


Fully burnt . 

Downstream. 

Downstream of D. 

E (external) boundary of the grid, 

Stagnation enthalpy. 

i'th location in the grid. 


Longitudinal Tri-Diagonal Matrix Algorithm. 
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Symbol 

I 

Meaning 

I (internal) boundary of the grid 

j 

Chemical species j , 

M 

Intermediate. 

pr 

Products. 

P 

Grid node P . 

U 

Upstream. 

wall 

Wall values. 

'j' 

Dependent variable cb . 

o 

Previous iteration value. 


12 


Between streamlines 1 and 2. 


APPENDIX A 


0HGANI5ATIQN OF THE NASCQ* COMPUTER PROGRAM 
A.l Introduction 

The orpanisation of the computer program will he looked at in 
detail in this Appendix. Firstly the structure and the inter- 
connectedness of the different subroutines are described. The 
subroutines are classified into different categories depending 
on the function they serve in the program, and then each of 
the subroutines is described in detail. In the course of this 
description are mentioned the program changes necessary to 
solve problems with different initial and boundary conditions, 
and also incorporation of alternative physical modelling for 
properties. 

The present program has been derived and developed from the 
GENHIX program of Spalding (Ref. 1). The reader is advised to 
refer to the description of the GENHIX program for background 
information . 

A. 2 Program Structure 
A. 2.1 Flow diagram 

The structure of the computer program can be represented by 
the flow diagram given on the next page. 

There are 13 subroutines: BLOCK DATA, MAIN, OUTPUT, PHYS, 

WALL, CHEM, SPECE , CALC, CREKO, HOPS, COMP, START and PLOTS. 
The first three are of major concern to the user and they 
will require at least minor modifications when a new problem 


NASCQ stands for NASA Surface Combustor. 
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is to be tackled. The other subroutines will in rceneral 
require no modifications. Subroutines PHYS and WALL embody 
the physical processes; modifications to these are needed 
only if alternative physical models are to be considered. 
Subroutines CHEM, SPECE, and CALC relate to chemical- 
equilibrium and kinetics calculations; these should not be 
altered. Subroutine CREKO is for the input of thermochemical 
and kinetics data and subroutine HCPS for the calculation of 
certain thermodynamic quantities. Finally subroutines COtIP, 

START and PLOTS, embody the mechanisms for solving the 
finite-difference equations and plotting the results graphically; 
these again should not be altered unless major extensions of 
the program are envisaged. 

A. 2.2 Flow of control 

Inspection of subroutine MAIN in the flow diagram reveals 
that, apart from calls to subroutines CREKO, START and 
COJ'rp (ENTRY INIT, GRIDX, and GRIDOM) control proceeds from 
the start to the end of Chapter 5. Chapter 6 is then 
skipped. The initial part of Chapter 7 is passed through 
to specify some boundary-condition information; then 
Chapter 9 to complete the computation of starting values. 

The main computation loop is entered at Chapter 6 after 
Chapter 12 has been completed. The loop 6-7-8-9-10-11-12-6 
is then traversed as many times as there are forward steps. 
During the course of this traverse, calls are made to 
subroutines CHEM, COJiP, and HCPS. Finally subroutines 
OUTPUT and PLOTS are called to print and plot the results as 
indicated in the flow diagram. 

The various subr ’ tines will now be described in detail. 


The uger-^oriented subroutines, BLOCK DATA, MAIN, aiid OUTPUT 


A, 3 

A. 3.1 BLOCK DATA 


This subroutine is used tor the input of some data. It 
consists of seven chapters, the functions of which are 
explained by their titles; these will now be briefly 
described. 

Chapter 1. Preliminaries 

In this Chapter, identification and control parameters are 
defined. Examples of these parameters are;- the maximum 
number of iterations to be performed; whether to obtain 
diagnostic print out or not; and so on. An inspection of 
the Glossary of Fortran variables in Appendix C, will 
reveal the function served by the parameters defined in 
this Chapter, 

Chapter 2. Grid and Geometry 


In this Chapter, the user must specify the number of 
transyerse and longitudinal grid points and how they are 
distributed. Geometrical information relating to the 
radius of the duct wall is also supplied here. 

Chapter 3. Dependent Variables 

In this Chapter, the number of dependent variables, NF,is 
specified. The Indices etc.) defining the location 

of a variable held in two-dimensional storage in the F-array 
and the indices (IDN,IDNO, etc.) defining the location of a 
variable held in one-dimensional storage in the FS-array, 
are also specified here. It will be observed that some of 
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the species concentrations are stored in both the F and 
F5 arrays; this is for progranming convenience. 

The array ISPEC is also defined here as follows ♦ 

ISPEC (I) = J means that the variable which occupies the 
Ith storage location in the FS-array occupies the Jth 
location in the F-array. If ISPEC equals zero, the corres- 
ponding variable is stored only in the FS-array. 

Chapter 4. Property Data 

In this Chapter, some of the properties of the fluids are 
specified. Some control parameters relating to properties 
and processes are also supplied here. Polynomial coeffici- 
ents AC, AH, AS, ASl, BSl* are defined in this chapter. 

Chapter 5. Starting Values 


In this Chapter the velocities, temperatures, fuel- and 
oxygen concentrations of the two incoming streams are 
specified. The inlet pressure and the overall equivalence 
ratio are also specified here. 

Chapter 6. Boundary Conditions 


The parameters which define the temperature of the duct wall 
are specified here. 

Chapter 7 . Print 


In this Chapter, the parameters controlling the printout 
and plotting of the various variables are defined. The 


See Appendix C for explanation of Fortran variable names. 
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reader is again advised to refer to Appendix C for an 
explanation of the Fortran variable names. 

A. 3.2 Subroutine MAIN 


Subroutine MAIN consists of 14 chapters, the functions 
of which are explained by their titles, and these will 
now be briefly described. 

Chapter 1. Preliminaries 

Here DIMENSION and COMMON statements allocate storage and 
variable names. Comment cards describing the special 
features of a particular run are conveniently placed in 
this Chapter. Arithmetic statement functions for specify- 
ing geometrical data (i.e., radius of duct wall as a function 
of longitudinal distance) and boundary conditions (i.e., 
wall temperature as a function of longitudinal distance) 
are also defined in this Chapter, These functions may be 
changed readily if different ways of specifiying the 
geometry and wall temperature are required. 

Chapter 2. Grid and Geometry 


In this Chapter, the distribution of cross-stream grid 
points (i.e., values of OM(I)) are computed using any 
specified functional relation, e. g., power law, etc. Calls 
to subroutine COMP, at ENTRY’S INIT , GRIDX, and GRIDOM 
are made for the initialisation of certain quantities and 
for the computation of certain grid related quantities. 


In the present listing, the values of OM(I) are specified 
directly in subroutine BLOCK DATA. 
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The duct area is computed once for all at various axial 
locations and stored in the array ADUCT, 

Chapter 3. Dependent-variables 


In this Chapter comment cards are supplied to state the 
variables which appear in the differential equations and 
the auxiliary equations that are to be solved. 

Chapter 4. Property Data 


In this chapter the ratio of the specific heats (Cp/C^), 
the laminar and the turbulent Prandtl numbers of the 
various dependent variables, and the stoichiometric mixture 
fraction are calculated. For simplicity, all the laminar 
Prandtl numbers are set equal to PRLAM, and all the 
turbulent Prandtl numbers are set equal to PRTDRB, The 
appropriate place to insert temperature and/or composition 
dependence is in subroutine PHYS and will be described later. 

The array NE19PR(J) is also filled in this Chapter. NEWPR(J) 
is set to unity if the Prandtl number of a dependent variable 
denoted by J is equal to that of the variable denoted by 
(J-1); otherwise NEWPR(J) is set to 2. This is done so as 
to avoid recomputation of diffusion terms when NEWPRfJ) 
equals unity*. 

Chapter 5. Starting Values 


The program conducts a marching integration from an upstream 


* The variable corresponding to J=0 is the u -velocity. 
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station to a do'wnatreain one until the entire flow field 
is covered and then the process is repeated ^ The values 
of the dependent variables are computed, step— by step , for 
all internal nodes of the grid except those lying on the 
starting line. The latter, which are termed as starting 
values or initial conditions, must be specified. This is 
done in Chapter 5. 

In this Chapter, firstly the radius of the inner fuel jet 
(denoted by RDIV) is computed on the basis of the fuel 
and air velocities and the overall equivalence ratio. Next 
follows a sequence of statements to set the cell boundary 
at the radial location RDIV and then a call is made to 
subroutine COMP at ENTRY GRIDOM to compute some grid 
related quantities. Next a call to subroutine OUTPUT at 
ENTRY OUTPl results in some initial printout and a call to 
subroutine START gives the one-dimensional solution. 

Finally, at the end of the Chapter is a DO-loop which 
inserts the appropriate values of the dependent variables 
at the internal grid nodes. Except for the values specif- 
ied on the starting line, the values at the othe~ grid 
nodes, as specified here, are to be regarded as only 
’initial guesses' and are over-ridden as integration 
proceeds. These 'initial guesses' are specified here only 
for the two cross-stream planes immediately downstream of 
the inlet plane; thus the DO-loop index JX runs only up to 
the value 3. The re-specification of the initial guess for 
JX=3 as also the specification for other internal grid 
nodes is done in Chapter 6 and is described below. 



Chapter 6. Start of a, ne^v fory/ard step 

This is the first of six chapters in the main integration 
loop which runs from Chapter 6 through Chapter 12. The 
magnitude of the forward step DX, and the value of X at 
the downstream location XD, are set here. 

Also done in this Chapter is the updating of ’ initial guesses' 
for the first integration sweep only . The initial guesses 
for the downstream (D)station (i.e., the station for which 
solution is about to commence) and the one further down- 
stream (T)D) of it are specified as the corresponding up- 
stream (U)stat ion values (i.e.j the values which have been 
just determined). This is done in the T)0-6a2 loop. Only the 
D- and the DD- station values are the as yet undetermined 
ones which will be required when solving at the D-station. 
This updating of the initial guesses to obtain faster 
convergence, is done for all variables except mass fraction 
of unburnt fuel (J^Jf) and temperature (J=JTE) which are 
obtained from a preliminary one-dimensional analysis 
(subroutine START). 

Chapter 7. Boundary Conditions 

The boundary conditions at the walls of the duct are 
specified in this Chapter. The boundary values of some 
of the dependent variables are specified by inserting the 
appropriate values at the boundary grid nodes in the various 
arrays. 

Chapter S. Advance 

In this Chapter the pressure gradient is at first computed. 
This is an estimated value based on the rate of area incre- 
ase of the duct. The effect of the wall shear on the 
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pressure is next considered ^ The detailed steps in the 
computation of the pressure gradient are; 


@ The downstream duct area ADUCTD is obtained by reference 
to the duct geometry. (Note: The duct areas at the 
different longitudinal grid locations are calculated 
only once in Chapter 2 and stored in the array ADUCTJ 


© The downstream duct area is compared with the upstream 
flow area (AFLOWU), which is equal to the downstream 
flow area appropriate to the previous step. 


« The pressure gradient DPDX is then computed as equal 
to the difference in areas (ADUCT- AFLOWU) divided by 
the step size DX and by DADP (which itself is computed 
in Chapter 10 at the downstream location of the previous 
step). This pressure gradient is that which should 
produce the correct area change, provided the neglect 
of shear stresses at the wall is justified. 


• The shear stresses at the duct wall are then accounted 
for partly, by the addition to the computed DPDX of 
terms involving TAUE; for the pressure gradient must 
also balance the forces on the walls. 


® Finally the pressure gradient is restricted to be no 
greater than apu^^^^^/Ax (where a = a factor which may 
be varied at will * by the user and is denoted by the 
Fortran symbol BFRAC; BFRAC is assigned a value in 
BLOCK DATA). This restriction is imposed to avoid 
the occurrence of negative velocities and is done as 
per the discussion presented in Section 4,2.3. (Note: 
BFRAC < 0.5) 


« This pressure gradient is used in subroutine PHYS 

(ENTRY PBYSU) for the calculation of momentum sources* 


This completes the computation of the pressure gradient- 
Next a call to subroutine COMP at ENTRY SOLVE is involved. 
This results in the execution of a forward step and the 
computed values of the dependent variables: li-velocity. 



enthalpy, mass fraction of unburnt fuel, and mixture 
fraction are stored at the appropriate location in the 
respective arrays. Some other variables such as temp- 
erature, mass fraction of oxygen, etc. are also computed 
in the process; details will be described when the 
appropriate subroutine is being discussed. 

Chapter 8 is completed by calls to subroutine CHEM (only 
for INERT=2, reacting flows): 

(a) at ENTRY TEMP to compute the temperature; 

(b) at ENTRY DEES to compute the density ; 

(c) at ENTRY EQUIL for chemical- equilibriiom computat- 
ions (only for IEQUIL=1) ; 

(d) at ENTRY KINE for chemical-kinetics computations 
(only for KNTCS=1, and NITER NITERK). 

The variables IX, IXX, XU, ISTEP and AREAU are then updated 
to represent the new step values. 

Chapter 9. Complete 

In this Chapter, variables which are not obtained directly 
from the differential equations are computed. Thus the 
computation of temperature, density, and mass fraction of 
oxygen is performed here for 1NERT=1 (1. e., non-reacting 
flows). Por IKERT-2 (reacting flows), subroutine CHEM (ENTRY'S 
TEMP and DENS) is called in Chapter 8 and these operations are 
performed in this subroutine itself. 
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Chapter 10, Adjust 


Firstly, the radial locations of the f^rid nodes are 
computed by a call to subroutine COMP at ENTRY D I STAN. 

The solution obtained is now 'improved' by adjusting 
the pressure and the corresponding velocity and density 
distributions. Since the pressure gradient is guessed at 
the beginning of a forward step, this adjustment is 
necessary at the end of the step so as to ensure a close 
fit of the downstream area (AFLOM)) of the calculated flow 
with that available in the duct (ADUCTD). This is achieved 
in the following steps: 


• A quantity DAI, which is a dimensionless measure of the 
extent by which the flow area (AFLOWD) differs from the 
duct area (ADUCTD)’, is first calculated. 


9 The dependence of area on pressure as expressed by the 
Fortran variable DADP is now calculated in the DO-loop 
ending at statement number 1025; this amounts to 
performing the integration indicated in equation (96) 
of Section 4.2.2. 


e If ABS(DAl) is greater than DAMIN, the value of pressure 
is adjusted accordingly. (DAMIN is assigned a value in 
BLOCK DATA) . The consequent increments to velocity and 
density are then calculated and applied in the DO-1.027 
loop. This is done in accordance with equations (97) 
and (98) of Section 4.2.2. 


o The increnent of pressure is restricted to be no greater 
than (where B - a factor which may be varied at 

will by the user and is denoted by the Fortran symbol 
PFRAC; PFRAC is assigned a value in BLOCK DATA, and 
PFRAC ^ 0.5). This restriction is imposed to avoid the 
occurrence of negative velocities due to over-correction 
and is done as per the discussion presented in Section 
4.2.3. The increments to velocity and density are also 
scaled down correspondingly. 



9 The result of the preceding operations is a new flow 

area AFL01¥D, and a new measu?7e of the area discrepancy, 
DA2. The latter should he nearer to zero than DAI, 


m If ABS(DA2) is larger than DAMIW, the previous steps are 
repeated, but in no case more than NDAMAX times, 

CNDAMAX is assigned a value in BLOCK DATA.) When 
repeating the above steps, the increment of pressure 
is- taken to be half of that given by Ppu^in* if DA2 
has a sign different from that of DAI. The reason for 
doing so is that a change of sign from DAI to DA2 
implies an over-correction, and hence the necessity 
to scale down the subsequent corrections. 


Chapter 11. Print 


The function of this Chapter is calling subroutine OUTPUT 
(ENTRY 0UTP2) . 

Chapter 12. Decide about next forward step 

The function of this Chapter is to decide whether to termiu 
ate the integration or continue it. Firstly, a check is 
made to see if the final x-station in the flow field has 
been reached. If not control is returned to statement 600 
at the start of Chapter 6 and then another forward step is 
takenj otherwise control proceeds to Chapter 13. 

Chapter 13. Exit Boundary 


This Chapter is entered if the entire flow field has been 
covered. The boundary condition of zero gradient at the 
exit as represented by equation (16) of Section 2.6 is 
applied in the D0’T206 loop. A call to subroutine OUTPUT 
(ENTRY 0UTP2) is made to obtain complete printout of the 
dependent variables at the exit plane. 


Ill 
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Cha-Dter 14, Decide about next iteration 

■ ■ ,1. ^ <1 *■ 1 *« * i| ^ 

In this Chapter a checi? is made to see if the number of 
sweeps or iterations, KITER, exceeds the specified maximum 
value of NITMAX. If yes, then the iteration is terminated. 
Otherwise, a call to subroutine COMP at ENTRY INIT is made 
to reinitialize certain variables, and another sweep of the 
flow field started by transferring control to statement 700. 
If the next iterative sweep is to be started at an inter- 
mediate x-station IX=ISTRT, the reinitialization is done by 
transferring control to statement number 1210. 

A. 3. 3. Subroutine OUTPUT 


Subroutine OUTPUT is divided into six dhapters which are 
now briefly described. It has two entry points, ENTRY 
OUTPl in Chapter A, and ENTRY 0UTP2 in Chanter B. 

Chapter A, Initial printout 

This Chapter provides, by way of DATA statements, titles 
for the dependent variables the cross-stream distributions 
of which are to be printed out in Chapter E below. 
Information required by subroutine PLOTS for the line- 
printer display of profiles is also provided in this 
Chapter by way of DATA statements. This is divided into 
two categories: transverse (c^ross-stream) plot data and 
longitudinal (down-stream) plot data. Finally some initial 
printout describing the problem is obtained. This sub- 
program is called from Chapter 5 of subroutine MAIN. 
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Chapter B. Headings 


This chapter is used for the printout of the iteration 
number at the beginning of each marching sweep. 

Chapter C. Tests for printout 

In this Chapter the index IPRINT, which decides what print- 
out is obtained, is set a value depending on the values of 
ISTEP, NSTAT, NPROP, . , . etc. Thus for IPHINT-0 there is no 
printout; if it equals 1, ’’station” variables are printed; 
if it equals 2 , ’’profile" variables are printed; and fdr 
IPRINT=3, the variations of the "profile” variables in the 
cross-stream direction are plotted by the line-printer. 

These different kinds of printout are discussed below. 

Chapter C is also used to insert into the appropriate 
arrays (XLPLOT, YLPLOT) the variables which are to be 
employed in the "longitudinal plot"; and for the computation 
of the convective fluxes of the dependent variables. 

If IPRINT equals zero, control returns to the calling 
program without any further printout. 

Chapter D. Station Variables 

This Chapter is entered when IPRINT is greater than zero, 
i.e. whenever ISTEP is a multiple of either FSTAT, NPROF, 
or NPLOTC . 

Variables having a single value for the x-station under 
consideration are termed as "station variables". These 
include the longitudinal distance, x, the index IX specify- 
ing the location of a grid node in the x-direction, the 


forward step size DX, the pressure PRESSD (non-diniension- 
alized as convective fluxes UFLUX and 

FLUX(J), and the non-dimensional area errors, DAI and DA2, 
All these quantities are printed in this Chapter. 


Chapter E. Cross-stream profiles 


This Chapter is entered when IPRINT is greater than 1, i.e., 
whenever ISTEP is a multiple of either NPROF or NPLOTC. 

''Profile variables” are those which may be represented as 
distributions with respect to the cross-stream distance r, 
and are printed as a consequence of the operations in this 
Chapter. Thus the u,~velocity , temperature, fuel and oxygen 
concentrations, and the mixture fraction are printed in the 
DO-1091 loop. The DO-1207 loop results in the printout 
of the nitrogen concentration, density, viscosity, and 
enthalpy. Just before this loop, the centerline viscosity 
is set equal to that at the neighboring ’ radial node; this 
is for printout purposes only and does not affect the compu- 
tations. This completes the printout of profile variables 
for chemically inert flows (INERT=1), For reacting flows 
the chemical- equilibrium concentrations are printed in the 
DO-1202 and DO-1203 loops (for IEQUIL=1) and /finally for 
KNTCS==1 the chemical-kinetics concentrations are printed in 
the DO- 1302 loop. 

The next section is entered only on the last iteration 
when IPRIM'=3, i.e.^ when ISTEP is a multiple of NPLOTC. 

This section provides cross-stream plots of various depende- 
nt variables; the programming sequence is easy to interpret. 
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Chapter F, Longitudinal plots and return 


This Chapter is entered when IFIW=2 (i.e., the entire 
flow field has been covered at a given iteration) and when 
NITER is a multiple of NPLOTL. Longitudinal plots of the 
various dependent variables are obtained as a result of the 
operations in this Chapter. 

Finally the maximum changes in the dependent variables from 
one iteration to the next one are printed out in this Chapter 

A. 4 The physical-model subroutines, PHYS and WALL 

These two subroutines incorporate the physical models 
describing the flow situation. 

A, 4.1 Subroutine PHYS 


This subroutine is divided into two chapters, each having 
its own ENTRY and RETURN statements. 

Chapter A. ENTRY PHYSU 

The function of this subprogram is to compute the viscosity 
and the source terms of the u-momentum equation. 

Two sections are provided for the computation of viscosity, 
one for laminar flows and the other for turbulent. 

After entry into this Chapter, control is transferred to the 
appropriate section depending on the value of the variable 
MODEL. 
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(a) Laminar viscosity : 


The laminar viscosity is computed according to the 
square-root formula and weighted with the mass fractions 
of the species as discussed in Section 2.7.1. This 
computation is carried out in the DO-110 loop for all 
cross-stream points at two planes: the one under 
consideration (EMDD) and the one upstream of it (EMUII), 

(b) Turbulent viscosity : 

The turbulent viscosity is computed according to the 
formulae discussed in Section 2.7.1. Here again as for 
the laminar case, the EMUD and EMUU arrays are filled 
with the appropriate viscosity values. In addition. the 
laminar viscosity at the wall temperature is computed 
for use in subroutine WALL. For points lying in Sections 
2 and 3 of the duct (Hg. l)the viscosities are multiplied by 
a factor of 100; this is done as per the discussion of 
Section 2.10. 

In the calculation of turbulent viscosities, the upstr- 
eam values (EMUU) for the current x-location are set 
equal to the downstream values (EMUD) of the previous 
x-location. This avoids recalculation of the same 
quant it iy.* 


* In the computation of laminar viscosities, EMUU is based on 
the current iteration values of the mixture composition and 
temperature, and EMUD on the previous iteration values. 
Therefore EMUU of the current x-location is not set equal 
to EMDD of the previous x-location; the two will however 
be equal in the converged state. 



Finally in the DO-203 loop the viscosities for the cell 
boundaries in the w-direction are obtained by an averaging 
process; this computation is common to both laminar and 
turbulent viscosities. 

Next the momentum sources are computed. These comprise 
of the pressure gradient and the axial diffusion term. 

The contributions to the parts and of the linearised 
source term are computed in the DO-210 loop and stored in 
the arrays SI and SIP respectively. 

The DO-210 loop incorporates certain other operations. The 
diffusion coefficient occurs with the variables AREA, XDIF, 
and DX for all the dependent variables. Therefore to avoid 
recomputation, this group of variables is computed only 
once here and the result stored in the EMUU and EMUD arrays 
for the upstream and downstream locations respectively. 

SUMA and SDMB, denoting the summation of EMUD and EMUU 
respectively over the cross-stream points, are also computed 
here; these will be required for the longitudinal TDMA for 
some of the dependent variables. 

Subprogram PHYSU is called frc«n subroutine COMP (ENTRY SOLVE, 
u-velocity section). 

Chapter B. ENTRY PHY5F 

The function of this subprogram is to compute the transport 
properties and source terms for the dependent variables 
stored in the F-array (i. e., stagnation enthalpy, mass 
fraction of unburnt fuel, and mixture fraction). The 
three dependent variables are considered individually 
below. 
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Firstly after entry into Chapter B, the transport 
properties are computed in the DO-313 loop. This 
computation is by-passed when NEWR for the corresponding 
dependent variable equals unity (see also Chapter 4 of 
subroutine MAIN). The computation of diffusion coeffi- 
cients is straightforward: the diffusion coefficient for~a 
variable J equals that for variable (J-1) multiplied by the 
ratio of the Prandtl numbers for variables (J-1) and J. 

When J equals unity, the variable (J-1) is the velocity for 
which the Prandtl number is treated as being equal to 
unity. Now the source-term computations are described. 

(a) The source of stagnation enthalpy (J=JH) 

The programming sequence for computing the source 
term of the stagnation enthalpy equation begins at 
statnnent number 314. The source term is composed 
of two parts: the kinetic heating term and the axial 
diffusion term. 

First the kinetic heating term corresponding to 

“ {(u-r^) |— (^)) is computed in the DO-322 loop 
oco n oto .s 

and stored in the SI array. Next the other part of 
the kinetic heating term corresponding to 

{(y-r^) is computed in the DO-323 loop 

and added on to the SI array. Finally the contrib- 
utions of the axial diffusion term to the two parts 
Sji^ and S', of the linearised source terra are computed. 
Control is then transferred to statement number 5000 
where the LTDMA coefficients ALF and BLF (correspond- 
ing to a' and b' of Section 4.4)are obtained* 

When y= the kinetic heating term vanishes. The 
source term then consists of only the axial dif fus- 


ion term. The corresponding programming sequence 
is contained in the DO-324 loop which is accessed 
when NEWPR (JH) equals unity, i.e. when u = 

(^) The source of fuel (J=JF') 

The computation of the source term of the fuel 
equation begins at statement number 3000. The 
computation is done according to the linearised 
source-term expressions described in Section 4. 5* 

The programming sequence is contained in the DO-344 
loop and is easy to interpret- The computation of 
the axial diffusion contribution is also performed 
here. 

It will be noted that an additional entry point » 
ENTRY SORPU is provided here. This entry point is 
used during the iterative procedure to determine the 
fuel concentration for all iterations except the 
first. A call to subroutine CHEM (ENTRY TEMP) is 
made at each such iteration to obtained the latest 
values of the temperature. 

Finally control is transferred to statement number 
5000 to obtain the LTDMA coefficients ALE and BLF 
(a' and b' of Section 4.4 ). 

(c) The source of mixture fraction (J=JP) 

The source term for this variable consists of only 
the axial diffusion terra* This is computed in the 
DO-360 loop; the computation is similar to that for 
the variables discussed above. 


119 



Subprogram PHYSF is call©’ from subroutine COMP (ENTRY 
SOLVE, F-Section) once for each of the three variables: 
f, and 

A. 4.2 Subroutine WALL 


The function of this subroutine is the calculation of the 
quantities required for the modification of the finite- 
difference coefficients for the nodes adjacent to the duct 
wall. Subroutine WALL has two arguments (OUTl, 0UT2), both 
of which are output quantities from it. OUTl and 0UT2 stand 
for <j) and Tj, (of equation (76)) respectively when velocity 
is in question (J=0), they stand for and T^ (of the same 
equation) respectively when enthalpy is the variable in 
question (J>0). 

There are three chapters in this subroutine. Chapter A 
involves some preliminaries where certain quantities are 
given values through data statements. A decision is then 
made depending on the value of J whether to enter Chapter 
B (J=0) or Chapter C (J>0). 

Chapter B is entered for J=0 when velocity is the variable 
in question. Here some 'reference' values are chosen for 
density, viscosity, velocity and radius. These are chosen 
rather arbitrarily. Then if laminar flow is indicated eith- 
er by MODEL being equal to 1 or the Reynolds number (based 
on the 'reference' values) being less than 132. 25 (= 11,5^) 
control is transferred to statement number 110. Here 
quantities related to laminar flow are computed. Otherwise 
the turbulent flow section is accessed. The programming 
sequence for the calculation of OUTl and 0UT2 is easy to 
interpret and is the Fortran equivalent of the formulae 
derived in Ref.l (Chapter 6). 


Chapter C is entered for J>0, when enthalpy is the variable 
in question. Here again there are separate sections for 
laminar and turbulent flows. The programming sequence 
follows closely the formulae derived in Ref.l (Chapter 6), 

Subroutine WALL is called from subroutine COMP (ENTRY SOLVE) 
once for u- velocity and once for enthalpy. 

The chemical>-model subroutines, CHEM, SPECE, and CALC 

These subroutines incorporate the computations involved 
with the chemistry of the flow. The chemical-kinetics 
computations are mainly incorporated in subroutines SPECE 
and CALC which are simplified versions of those given in 
Ref. 3. These subroutines have been simplified from their 
original general version to make them more particular to 
the problem considered here. 

Subroutine CHEM 

This subroutine is divided into five chapters, each having 
its own ENTRY and RETURN statements. 

Chapter A. ENTRY POLY 

The function of this subprogram is to corapute the 
polynomial coefficients at the prevailing pressure by 
linear interpolation between two neighboring pressure 
values. Polynoraxal coefficients for enthalpy, specific 
heat, and reciprocal mean molecular weight of the 
equilibrium-product-species, as functions of temperature are 
thus obtained. 

This subprogram is called from subroutine COMP (ENTRY SOLVE^ 
F-section) when INERT equals 2 (i.e. reacting flows). 



Chapter B, ENTRY TEMP 


The function of this subprogram is to compute the 
temperature of the gas mixture for specified stagnation 
enthalpy, velocity, and composition. The method described 
in Section 3.7 is followed. On entry into this subprogram 
indices NSl and NS2 are set appropriate values depending 
on whether the chemical-kinetics solution is required 
(KNTCS=1) or not required (KNTCS=0). In the former case 
the concentrations of the NO -species (which are kinetica- 
lly determined) at the cross-stream plane under consider- 
ation are stored in the NS-array. This is done in the DO- 
103 loop. These concentrations are those obtained from the 
previous iteration, since they have not yet been determined 
at the current iteration. However, since the NO^-species 
are present in relatively small amounts, not much error is 
introduced. 

The DO-lOO loop spans all the internal cross-stream points. 
Firstly the mass fraction of unburnt fuel is restricted to 
be no greater than the mixture fraction. Next the concen- 
trations of oxygen and products (considered as one species) 
are obtained, the concentration of nitrogen is obtained 
by a process of subtraction in the DO-102 loop. Finally, 
the DO-110 loop incorporates the Newton-Raphson iteration 
scheme for temperature. At each iteration the enthalpy 
(HPR) and the specific heat (CPR) of the equilibrium- 
product- species are obtained using polynomial fits; thus 
the computation of each individual species-concentration is 
avoided. The number of iterations is restricted to NTMAX 
or less if the normalised change in temperature from one 
iteration to the next is less than EPST. Both NTMAX and 
EPST are defined in Chapter 4 of BLOCK DATA. 


Subprogram TEMP is called from subroutine MAIN (Chapter 
8) and from subroutine PHYS (the section in ENTRY 
PHYSP) during the iterative procedure to determine the 
fuel concentration (Section 4.5) . 

Chapter C. ENTRY DENS 

t 

The function of this subprogram is to determine the 
density of the gas mixture. The updating of certain 
values is also performed here. The density is computed 
in the DO-200 loop which spans all internal cross-stream 
points. In obtaining the mean molecular weight of the gas 
mixture, the contribution of the equilibriura-product-species 
is obtained by means of a polynomial involving temperature. 

The density values at the cross-stream plane corresponding 
to (ISTRT-1) are stored in the array RH02; these values will 
be required if the next iterative sweep is started at an 
intermediate section IX=ISTRT. 

Next the centerline values of the concentrations of oxygen, 
fuel and nitrogen, and temperature are updated, as also their 
wall values (except temperature). The updating is done by 
setting the boundary value equal to that at the neighboring 
internal node. Einally the wall enthalpy is computed to 
fit the composition. Subprogram DENS is called from 
subroutine MAIN (Chapter 8), when INERT equals 2 (reacting 
flows). 

Chapter D. ENTRY EQUIL 

The function of this subprogram is to obtain the concentrat- 
ions of the equilibrium-product-species. This is done by 
using polynomial expressions described in Section 3.5.4. 



The programming sequence is easy to interpret and 
involves (a) the determination of the polynomial coeffici- 
ents at the prevailing pressure by linear interpolation 
between two neighboring pressure values; (b) the selection 
of the coefficients for the appropriate enthalpy-range; 

(c) determination of the equilibrium concentrations; and 

(d) the updating of the boundary values of these concentra- 
tions by setting them equal to the values at the neighboring 
internal node. . 

This subprogram is called ^rom subroutine MAIN (Chapter 8);whai 
INERT equals 2 (reacting flows), and lEQUIL equals unity. 

Chapter E. ENTRY KINE 

This subprogram is used to obtain the concentrations of 
the NO -species by reference to kinetically-controlled 

A 

reactions. 

Firstly inital estimates for the concentrations of the 
NO -species are specified at the cross-stream plane being 
solved for and the one downstream of it. This is done by 
simply setting these values equal to those at the corresp- 
onding upstream grid node. This is done in the DO-482 
loop which is accessed only during the first iterative 
sweep for the solution of the NO -species (i.e. NITER= 
NITERK); the chemical-kinetics solution is started after 
other variables have undergone NITERK number of iterative 
sweeps and have stabilized to a certain extent. 

Next the finite-difference coefficients A and B expressing 
the links to the neighboring ’ cross-stream points are 
computed. This is done in the DO-470 loop which is 
accessed only when the variable NEVTPR is not equal 



to unity (see also Subroutine MAIN, Chapter 4). 


The DO-487 loop spans all the internal cross-stream 
points. In this loop the following operations are 
performed at each grid node : 


• computation of finite-difference coefficients C and D 
which express the links with the neighboring _ upstream 
and downstream grid nodes respectively; 


• computation of the mole numbers of all the species 
and storing them in the S2-array (DO-486 loop) ; 


♦ computation of the weighted averages of the mole 

numbers of the species at the four neighboring_^ 

nodes and storing them in the Sl-array (DO-488 loop) 
(this corresponds to of equation (91), Section 3.6.1); 

• a call to subroutine SPECE to obtain the chemical- 
kinetics solution (i.e.»raole numbers of the NO^— species) 
for temperatures greater than 550°IC; 


• conversion of the mole numbers to mass fractions (DO- 
489 and DO-490 loops); 


» adjusting the mass fraction of nitrogen to ensure that 
all mass fractions add to unity (DO-493 loop). 


It will also be noted that should a converged solution be 
not obtained from subroutine SPECE (as indicated by CONVG= 
.FALSE.) a warning message is printed out and the NO -spec- 

A 

ies-concentrations set equal to the weighted averages of 
their concentrations at the four neighboring- nodes (DO-502 
loop). This is also done for temperatures not greater than 

550°K. 

Finally the values of the NO -species-concentrations at the 
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boundary nod©s are updated by setting them equal to the values 
at the corresponding neighboring internal node. 

Subprogram KI15E is called subroutine MAIN (Chapter 8) when 
NITER NITERZ and 1NTCS=1. 

A. 5.2 Subroutine SPECE 

The function of this subroutine is to control the Newton-Raph- 
son iteration procedure for the solution of the chemical-kine- 
tics equations as described in Section 3.6, This subroutine 
consists of five chapters. 

In Chapter 1 the logarithms of the species mole-numbers are 
computed in the DO-10 loop. The sum of the species mole- 
numbers and its logarithm ’are also computed here. The sise of 
the correction matrix, IMAT, is then specified. 

In Chapter 2 the main Iteration loop (DO-170) is started. The 
elements of the Newton-Raphson correction matrix are set up by 
a call to subroutine CALC. Subsequent statements in Chapter 2 
involve the standard Gaussial pivotal elimination solution 
procedure for the correction matrix. 

In Chapter 3 the under-relaxation parameter ETA is computed as 
described in Ref. 2. 

In Chapter 4 the species mole numbers are corrected, the corr- 
ections being scaled by the factor ETA, 

In Chapter 5 the convergence criterion is applied (Section 3.6. 
3 ) . If all the species mole numbers have converged to within 
a user-specified tolerance limit EPSS, the variable CONVG 
is set equal to .TRUE., and iteration is. stopped. ’ . 

Otherwise the. same set of operations is repeated until 



convergenc© is achieved; the maximum number of iterations 
being restricted to ITMAX, Values of both ITMAX and EPSS 
are set in BLOCK DATA (Chapter 4). 

Provision is made for printout of several quantities for 
diagnostic purposes at various stages of this subroutine. 
This printout is triggered by setting IDEBUG equal to two 
in Chapter 4 of BLOCK DATA. 

Subroutine SPECE is called from subroutine CHEM (ENTRY KINE). 
Subroutine CALC 


The function of this subroutine is to construct the Newton- 
Raphson correction matrix for the solution of the chemical- 
kinetics equations as described in Section 3.6. This 
subroutine consists of three chapters. 

In Chapter 1 all the elements of the correction matrix are 
initialised to zero. The mixture density is also computed. 

In Chapter 2 the forward and reverse rates for each reaction 
are computed in the DO-lOO loop. Only three different types 
of reactions have been considered; 


MODE = 

1 : 

A 

+ 

B ^ 

C + 

D 

MODE = 

2 : 

AB 

+ 

M •> 

A + 

B + M 

MODE = 

3 : 

A + B 

+ 

M 

AB+' 

M 


Relevant Fortran statements are provided to determine the 
reaction tjTDe and for MODES 2 and 3, control is transferred 
to statements 20 and 30 respectively. Subsequent statements 
compute the correction matrix elements as per the equations 
given in Section 3.6- All these operations are performed for 



each reaction in the DO-lOO loop. 

Chapter 3 completes the calculation of the matrix elements; 
the term of equation (91) is added to the diagonal 

elements and the term equation (91) is add- 

ed to the last column of the correction matrix. 

Subroutine CALC is called from Chapter 2 of subroutine SPECE . 

A. 6 The computational subroutines, COMP, START, and PLOTS 

A. 6.1. Subroutine COMP 


This subroutine is divided into five chapters, each having 
its own ENTRY and RETURN statements. 

Chapter A. ENTRY INIT 


The function of this subprogram is to perform some initial- 
izing operations at the beginning of an integration sweep. 
Default values are also set in this Chapter. 

This subprogram is called from Chapter 2 of subroutine MAIN 
at the beginning of the computations, and then again from 
Chapter 14, just before the start of the next integration 
sweep . 

Chapter B. ENTRY GRIDX 

The function of this subprgrain is to compute quant it es 
associated with the x-( or longitudinal) grid. 

These quantities are: 

• XS(J), the width of a finite-difference cell at grid 
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node J, in terms of x-distance; 


• XDIF(J), the difference in the values of x at grid 
nodes J and J+1, 

It will he noted that appropriate modifications -are made for 
the finite-difference cells located at the boundaries of the 
flow domain. (J=2, J=LM1). This subprogram is called from 
Chapter 2 of subroutine MAIN. 

Chapter C. ENTRY GKIDQM 

The function of this subprogram is to compute quantities 
associated with the m-grid. These quantities are: 

• OMINT(I), thfe valite of to for a finite-difference cell . 
interface between grid nodes I and I+l; 

• BOM(I), the width of a finite-difference cell in 
terms of to; 

• OMDIF(I), the difference in the values of W at grid ! 

nodes I and I-l. i 

* - i 

It will be noted that appropriate modifications are made 

to these quantities for the cells located at the boundaries s 

of the calculation domain (i.e.^ 1=2 and N-1). 

This subprogram is called from Chapter 2 of subroutine 

MAIN. It is called again from Chanter 5 of subroutine j 

MAIN in case the to -grid has been redistributed so as to 

locate a cell boundary at the interface between the streams ; 

of fuel and air entering the duct. f 

i 

■ I 

I 

j 

1 

■ ■ f 

I 
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Chapter D. ENTRY DISTM 


The function of this subprogram is the computation of the 
product (pu) and the radius r for each grid node, and the 
cell areas. The computation is incorporated in the DO-231 
loop. The computation of (Pu)'s and cell areas is 
straightforward. These are stored in the arrays RU and 
AREA respectively. The computation of the radii is done 
according to the equations given in Section 4.3. 

The quantity of equation (108) required during these 
computations is available from an earlier visit to 
subroutine WALL, The variable is assigned a value 
of unity in Chapter A of subroutine COMP; this is the 
value used when DISTAN is called for the very first time. 
When a intergration sweep is started at an intermediate 
x-station (IX=ISTRT), the value of appropriate to this 
x-station is obtained from BPSAVE (which was stored during 
the previous integration sv/eep; see statement towards end 
of u-velocity section. Chapter E, subroutine COMP) 

Subprogram DISTAN is called from Chapter 10 of subroutine 
MAIN at two different stages. The first call is to obtain 
the (pu) values which are used subsequently to compute 
DADP, the dependence of area on pressure. The second call 
is made during the course of adjustment of the calculated 
flow area to match the duct area. 

Chapter E. ENTRY SOLVE 

The function of this subprogram is to compute the finite- 
difference coefficients and solve the resulting finite- 
difference equations. Because the u-velocity is treated 
differently from the other dependent variables, there are 



two sections in this subprogram: one solves for the u- 
velocity, the other solves for the other dependent variables 
(stored in the P-array ). These two sections are now 
discussed separately. 

(a) The u-velocity section: 

After enfcrV into this. Section, the variable RSUMAX which 
denotes the maximum normalised change in u-velocity 
from one iteration to the next, is initialised to zero. 
This initialisation is done only at the start of the 
integration sweep which may be either at the start of the 
flow domain or at an intermediate x-station (IX=ISTRT). 

Next a call to subroutine PHYS at ENTRY PHYSU is made to 
compute the viscosities and the source terms. The 
subsequent computation of the finite-difference 
coefficients A,B in the DO-413 loop, and C,D in the 
DO-418 loop is straightforward. The programming sequence 
is the Fortran equivalent of equations (72)- (75) of 
Section 3.3,3, During the course of these computations 
a call to subroutine WALL is made and the coefficient 
A at the wall boundary is correspondingly modified 
(See Chapter 4 of Ref. 1). 

A provision is made for the printout of the coefficients 
A, B,C,D, SI and SIP for diagnostic purpose, this print- 
out is triggered by setting a value of 2 for the index 
ITEST in BLOCK DATA, 

The next step is the solution of the finite-difference 
equations. This involves a standard application of the 
TDMAj the programming is contained in the DO-421 and 
DO-420 loops. The computation of the velocities for 
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the downstreaiG points is performed in the DO-420 loop. 


The shear stress at the wall is then computed. The u- 
velocity at the centerline is updated on the basis of 
the zero- gradient condition at the symmetry axis. This 
is dofle by simply setting the centerline value equal to 
that at the ireighboriiig radial grid node. It should 
be mentioned that the computation of S 3 rmmetry axis 
values is a purely 'decorative' exercise and does not 
influence any further computations. Alterhative 
practices of determining the centerline values (e.g. by 
extrapolation) may be introduced by the user if so 
desired. 

(b) The F-Section : 

The structure of this section is similar to that already 
described for the u- velocity. This section is embedded 
in the DO-4SO loop, which causes the index J to run 
from 1 to NF. The index J denotes the particular depen- 
dent variable in question (i.e.> 1 for stagnation 
enthalpy, 2 for mixture fraction, etc. ) and NF stands 
for the number of dependent variables (excluding 
u-velocity and the species concentrations determined 
by kinetically-controlled reactions) for which a differ- 
ential equation is solved. 

The computation of the finite-difference coefficients 
(DO-484 and DO-485 loops), the modifications of the 
coefficients at the wall, the TDMA solution (DO-485 
and DO-466 loops), the updating of F-values at the 
boundaries, are all similar to the operations performed 
for u-velocity. The corresponding programming sequence 
is easy to interpret. Provision for diagnostic printout 
is made here also . 



There are four additional features in the F-section 

which will now be described. 

(i) The computation of the coefficients A and B in the 
DO-484 loop is skipped if NEWPR(J) (defined in 
Chapter 4 of subroutine MAIN) equals unity. 

(ii) The iterative procedure to determine the fuel 
concentration is contained in this section. This 
involves performing the operations described above 
several times, subject to a maximum number NFUMAX, 
or less if the normalised change in the fuel 
concentration from one iteration to the next is 
less than FUTEST (FUTEST and NFDMAX are specified 
in BLOCK DATA). 

(iii) The longitudinal TDMA: The programming sequence 
incorporating the LTDMA commences at statement 
number 4314. The LTDMA operations are not performed 
when solving for the mixture fraction (J=JP) 

since this would not significantly enhance 
convergence rates. The LTDMA coefficients CLF and 
DLF (corresponding to c' and d' of Section 4.4 ) 
are computed in the DO-492 loop; coefficients 
ALF and BLF (corresponding to a' and b') are 
computed earlier in subroutine PHYS. The TDMA 
solution and the incrementing of the dependent 
variables by the LTDMA corrections are incorporated 
in the DO-4310 and DO-4320 loops. 

(iv) For non-reacting flows (INERT=1), control is 
transferred from the early part of the F-section 
to statement number 4410 towards the end of this 
section, when the fuel concentration is the varia- 


ble in question (J=JF), Here the fuel concentra- 
tion is simply set equal to the mixture fraction in 
the DO-4411 loop and the solution sequence for the 
fuel concentration is skipped. It will also be 
noted that the call to subroutine CHEM at ENTRY POLY 
(before commencement of the DO-480 loop) to set up 
polynomial coefficients relating to equilibrium- 
product-species is skipped if INERT equals 1, 

Subprogram SOLVE is called from Chapter 8 of subrout- 
ine MAIN. 

A. 6.2 Subroutine START 

The function of this subroutine is to obtain a one-dimensio- 
nal solution which will be used as the initial guess for the 
two-dimensional solution. There are seven chapters in this 
subroutine. The coding follows the discussion of Section 4.6. 

Chapter 1. Preliminaries 

Preliminary operations are performed in this Chapter. 

Some therraodynamic-property-data required for the one- 
dimensional computations are supplied through DATA 
statements. Properties at the inlet plane are computed 
as an average of those of the entering fuel and air streams 
(weighted by the respective mass flow rates). The temper- 
ature and composition of fully-burnt gas are also computed. 

Chapter 2. Initial guess 

In this Chapter the initial guess for the one-dimensional 
solution is specified. In section 1 (Pig.l) of the duct 
this corresponds to the unburnt condition; in Section 3 to 
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the fully-burnt condition. In section 2 an exponential, 
variation of the fuel mass fraction and temperature between 
the unbumt and the fully-burnt values is employed. 

Chapter 3. Transport Properties 

In this Chapter the laminar or turbulent viscosities are 
computed depending on the type of flow. The sequence of 
Tortran statements is similar to that described in Subrout- 
ine PHYS (ENTRY PHYSD). 

• t 

Chapter 4. Main Solution Loop 

This Chapter incorporates the main solution procedure in the 
DO-335 loop. The solution sequence is entirely skipped when 
the mixture fraction (J=JP) is the variable in question since 
the one-dimensional solution for it is a uniform value 
throughout the flow field. 

Firstly the finite-difference coefficients ALF and BLF, 
expressing the links to the downstream and upstrepn neigh- 
boi'ing “ points are computed. Next the source terms are 
computed and control is transferred to the appropriate section 
depending upon the variable being solved for. For the 
stagnation enthalpy (J=JH) equation, the effect of heat 
transfer to the duct wall is included. The source terms 
for the fuel equation (J=JF) are computed as already descri- 
bed in subroutine PHYS (ENTRY PHYSF). 

The solution of the finite- difference equations commences at 
statement number 331. This involves a standard application 
of the TDMA and is carried out in the DO-332 and DO-333 loops. 
The maximum normalised changes of the variables from the 
previous iteration are also computed in the DO-333 loop. 
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Chaptey 5. Completion of an iteration 

In. this Chapter an iteration is completed after the 
computation of some auxiliary quantities. These are; 
the mass fractions of oxygen and the product species and 
the temperature. This is done in DO-440 loop. Next 
the exit boundary condition of zero gradient is applied. 

Chapter 6. Print 

In this Chapter the solution is printed out as decided by 
the value of NIDPR (assigned in BLOCK DATA). The printout 
occurs at the first and last iterations and every NIDPR 
intermediate iterations. If the maximum changes in the 
dependent variables are less than a user-specified conver- 
gence criterion EPSlD,the value of NIDMAX (denoting maximum 
number of one-dimensional iterations) is set equal to the 
current number of iterations NIT. This causes the 
solution to be terminated in Chapter 7. 

Chapter 7. Complete 

In this chapter the one-dimensional solution is stored at 
all cross-stream grid nodes (for given axial distance). This 
will now form the starting point for the two-dimensional 
solution. 

Subroutine START is called from Chapter 5 of subroutine 
MAIN, 

A. 6. 3 Subroutine PLOTS 

The function of this subroutine is to generate an on-line 
plot of a dependent variable Y as a function of radius r 
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( crosS"ti*eani plots) or axial distance x (longitudinal 
plots). Both the abscissa and the ordinate are normalised 
in this subroutine before plotting, so as to fall within 
the range 0 to 1. 

Information is conveyed to the subroutine by way of its 8 
arguments. The subroutine itself requires no alteration 
by the user, except to change the horizontal and the vertical 
dimensions of the plots. This is done by specifying appropr- 
iate values for the variables XSIZE and YSIZE. Oh each 
plot the following information is provided: the location 

of the plot, the maximum and minimum values of the abscissa 
and all the ordinates. Bor further details, the reader is 
asked to refer to the comment cards in the listing of the 
subroutine (Appendix B). 

A. 7 The thermochemical property, subroutines; CREKQ and .HCgf? 

These subroutines are concerned with the input and 
calculation of certain thermodynamic quantities. They have 
been adapted from Ref. 3 with some changes. 

A. 7.1. Subroutine CREKQ 

The function of this subroutine is to read, store and proce- 
ss thermochonical data. - This subroutine is divided into 
4 chapters. 

In Chapter 1 certain quantities are defined through data 
statements. Then follow statements which cause control 
to be transferred to the appropriate chapter. This depends 
on which of the words ELEMENTS, THERMO, MECHANISM, or a 
blank card is encountered in the data deck. Data cards must 
be in this order, since element data is needed to process 
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thermodynamic data, and thermodynamic data for kinetic- 
mechanism data. If the chemical-kinetics solution is 
not required (i. a,KNTCS=0) , the kinetic-mechanism data is 
not read. 

Chapter 2 deals with element data. Here one data card is 
read for each element considered. The contents and format of 
each data card are given in Table A.l. The total number of 
elements is designated by KLM. 

Chapter 3 deals with thermochemical’ data. Entry into 
Chapter 3 occurs after completion of Chapter 2 and via 
statement number 5. Four data cards are read for each 
chemical species considered. The contents and format of 
each data card are given in Table A.2 . After the data cards 
for each species are read, its molecular weight is computed 
in the DO-24 loop. The total number of species is designated 
by NS. 

The polynomial coefficients Z(I,J,K) for the thermodynamic 
properties are divided by the respective molecular weights 
in the DO-27 loop. Since the present program performs 
computations with species mass fractions rather than mole 
numbers, the coefficients will be required in this modified 
form. 

Chapter 4 deals with kinetic-mechanism data. Entry into 
Chapter 4 occurs after completion of Chapter 3 and via 
statement number 5. One data card is read for each reaction 
considered. The contents and format of each data card are 
given in Table A. 3 . In statements 33 to 38, the numbers 
to be stored in the ID (N,J) array are calculated. ID (N,J) 
is equal to the species index number I (1=1, NS) of the Nth 
(N=l,4) species which appears in the Jth (J=1,JJ) reaction. 
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TABLE A.l 


ELEMENT DATA CARDS 


Order 
of data 
cards 

Contents 

Format 

Card 

Columns 

First 

ELEMENTS 

3A4 

1 to -8 

Any 

order 

One card for each element present in 
the system. Each card contains: 

(i) Atomic symbol of element. 

(ii) Atomic weight of element. 

A2 

F10.6 

1 to 2 
8 to 17 

Last 

(iii) Valence or oxidation state of 

the element (positive, negative, 
or zero) . 

Blank card. 

Flo. 6 

18 to 27 
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TABLE A. 2 


THERHOCHEMICAL DATA CARDS 


Order 
of data 
cards 

Contents 

Format 

Card 

Columns 

First 

THERMO 

3A4 

1 to 6 

Any 

A set of four data cards for each 



order 

species considered. The cards in 




sequence and contain: 




(l)(a) Molecular symbol or name of 




species . 

3A4 

1 to 12 


(b) Date, 

2A3 

19 to 24 


(c) Atomic symbols a formula 

4(A2,F3.0) 

25 to 44 


(d) Phase (gas only, letter G) . 

A1 

45 


(e) Temperature range, degrees K. 

2F10.3 

46 to 65 


(f) Card number. 

115 

80 1 


(2)(a) Coefficients Zj,(i=l,5) for 




upper temperature range. 

5E15.S 

1 to 75 


(b) Card number. 

15 

80 


(3)(a) Coefficients Zg and Z .7 for 




upper temperature range, 




and Z^,Z 2 , and Zg for the 




lower range. 

5E15.8 

1 to 75 


(b) Card number. 

15 

80 


(4)(a) Coefficients Zj^(i=4,7) for 




the lower temperature range. 

4E15.8 

1 to 60 


(b) Card number 

120 

80 

Last 

Blank Card. 

~ 

- 
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TABLE A, 3 

REACTION MECHANISM DATA CARDS 


Orddr 
of data 
card 

Contents 

Format 

Card 

Columns 

First 

Any 

order 

!'[ECHANISM 

One data card for each forward 
(or optionally, reverse) reaction 
considered. 

Each card contains: 

(i) Molecular symbols of upto 

3A4 

1 to 9 


three reactant species^ . 
(ii) Molecular symbols of upto 

3(2A4) 

1 to 24 


three product species*. 

3(2A4) 

25 to 48 


(iii) Exponent 

F8.3 

49 to 56 


(iv) Exponent 

(v) Activation temperature 

(vi) (a) For forward reactions, 

F8.3 

57 to 64 


F8.3 

05 to 72 


date or comments. 

(b) For reverse reactions. 

2A4 

73 to 80 

Last 

REVERSE +. 
Blank card. 

2A4 

73 to 79 


^f'Molecular symbols must be identical to those used in 
thermochemical data cards. 

**Quantities as defined in: 

= 10®d T exp vjxth units 

3 

m / (kp:-mole-sec) for bimolecular reactions, 

6 9 

and m / (kp-mole) sec for terraolecular reactions. 

^When REVERSE is specified, Columns 1 to 48 are ignored. The 
data card with reverse rate data must follow immediately the 
card with the corresponding forward rate data. 






/ 

Thus for the reaction 
N + NO = Ng + 0 (Jth reaction), 

ID (1,J) = IDN, ID(.2, J) = IDN0, ID(3 , J) = IDN2 , ID(4,J)=1D0. IDN, 

IDNO, etc., which identify the different species are defined 
in Chapter 3 of subroutine BLOCK DATA. i 

The rest of Chapter 4 is devoted to the computation of the 
reverse reaction rates, for each forward reaction rate just 
read in. The reverse reaction rate constant is obtained from 
the ratio of the forward reaction rate constant and the 
equilibrium constant. This is done for fifteen temperatures 
between lOOO'^K and 3000°K and the reverse rate parameters 
are obtained by a least-square linear regression analysis. 

Details of this computational procedure are given in Ref. 3. 

If however, the reverse rate data is also supplied on a data 
card which is subsequently read, the calculated reverse rate 
parameters are overwritten. This is indicated by the stateme- 
nts just preceding statement number 32. 

ft 

Subroutine CREKO is called from Chapter 4 of subroutine MAIN. 

A. 7.2 Subroutine HCPS 

The function of this subroutine is to compute certain therm- 
odynamic quantities (See Section 5.2). 

On entry into this subroutine a check is made to see if the 
temperature is less than lOOO^K; this is to decide whether 
to use the coefficients for the lower (temperature < 1000°K) 
or the higher (temperature > 1000°K) temperature range. 

Depending on the value assigned to the variable IHCPS, the 
following properties are computed: 

(i) IHCPS - 1: The non-dimensional species enthalpy HO(I) 

and the non-dimensional mixture enthalpy , 
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HSUM aye computed in the DO-5 loop. 


(ii) IHCP8 R 2; The non^dimehsional species enthalpy HO(I), 

the non-dimensional mixture enthalpy HSDM 
and the non-dimensional mixture specific 
heat CPStJM are computed in the DO-10 loop. 

(iii) IHCPS = 3: The non-dimensional species enthalpy HO(I), 

and the non-dimensional species entropy 
SO(I) at one-atmosphere are computed in the 
DO-20 loop. 

Subroutine HOPS is called from: 

(a) Subroutine CREKO, Chapter 4, during the computation of 
reverse reaction rate parameters, with IHCPS«3; 

(b) Subroutine MAIN: 

• Chapter 5, to obtain inlet enthalpies of the fuel 
and air streams, with IHCPS=1; 

• Chapter 7, to obtain the wall enthalpy, with IHCPS=1; 

a Chapter 9, to obtain the mixture enthalpy and spec- 
ific heat, with IHCPS=2; 

(c) Subroutine CHSM; 

« Chapter B (ENTRY TEMP), to obtain the mixture 
enthalpy and specific heat, with IHCPS=2; 

0 Chapter C (ENTRY DENS), to obtain the wall enthalpy 
with IHCPS^l. 
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APPENDIX B 


ORIGINAL PAGE H 
OF POOR QUAIOT 


LISTING OP THE NAS CO COMPUTER PROGRAM 


1 

2 
3 

5 

6 
7 

a 

in 

11 

12 

13 

I't 

IP 

!£> 

17 

18 
19 


COHA PPOC 
COH^*ON 

1 AOliCTt 35J, ALFl 55,3 I iPLF(35»3}»Ct.Fn5) ,DLF(3S,3) t 

2 FLF 135 1 ,F{ ?Srj,9> ,Ut350» tXOIF t35) ,XS«35 J , 

3 ARFAtlO) .APCAUUOl ,BCMtlD) ,aiF(10),DIFua01,EHU(101 ,EHl'D(10», 

U EHUIK lU) ,FS( 111,15 ) tO»*lNrUD) ,R ( 1 U ) ,k'FS IDU ( 10) , RCSU ( 10) , RHO 1 10) , 

5 RHPi(iD),«iio?{in),r!uno) ,smt 3 ), 5 ipao) 

COMHCN /COMA/ 0MtlD),Xl3S),. 

6 A« tBFRAC.BIG.OflMIN.DPDXfOXrEPSFtEPSTtEPSlO, 

7 EUAL,FKlN,F$TCTC,FST0IM,Fi;TEST,HtIPEX(3) ,IDEBUG ,ICKO,IFIN, IGN, 

e IHAX,IPL0T(3ni , TPL0TL,IPLDTH,ISPEC(14) ,1PHFX(3) , IRPFy ( 3 ) , IRHUX , 

P 13FUV.ISTEP,TSTRT,ISWP,lTESTTlX,lXV,lY,J,jr,JH,JHAX,JN,JN0,JN0P, 

1 JN2 0,J0X,J'>, JTi: ,L,LHl ,LH2,M0DEL ,N , NOAKAX ,HrWPR t 7) ,NF,NFUMAX, 

2 MTEtt,MTEPK,HTrHAX,NHl ,NH2,NH.3,NP(JIMT ,WT«AX,MDHAX ,N1 DPR ,PFRAC j 

3 PRLTf7,2),PSIE,RE,PI,RSFKAX(3) ,RSOPAX,TAUE,THAX,THlR,Xn,XU 
DIHFRSIDN AHUOt 35) , AHUUt 35) ,PRi3S» ,PRL{7) ,PRT(7> 

EOUTVALENCE {PRLUl ) ,9RL(1) ) , (PRLTC8) ,PRT(1) ) 

EOUI VALENCE CALF( 1,2J ,AHUD{1) ), ( BLF ( 1 , 2 ) , AMUU ( 1 ) ) , 4 OLF ( ) ,2 ) , PRO ) ) 

EtJD 


■ 1 C0H.3 PROC 

? COMHON/COKB/ 

5 1 ARPC0’J,[)Al,DA2,E0RAT,irJERT,PREEXP, PRESS, 5T0ICH,UBAR, 

** 2 VISFU,VISMIX,VrSOX,VISPR 

5 END / 


1 COKC PROC 

2 COH'^ON/COHC/ 

3 1 ARE X<3 ) ,BREX t 3) ,CREX t3J tOWALL ( 3) iLPALL ( 3) ,FWALL ( 3) ,X01 3) , 

*} 2 C’^IX,ENTH5,EN-THC,FL0P,FL0C ,FUB ,FUC ,6 AM“ A , I PRINT ,KASE ,NSTAT, 

5 3 NPROF,NPLOTC,NPLOTL,OXe , OXC , PRLAM ,PRTUR B , RPI V ,REXD ,REY , TS , TC ,UP , 

5 8 UC tUFLUX ,U'HIX 

7 END 

1 COHD PROC 

2 LOSICAL CO'JVC, DEBUG 

3 COMMON /INDEX/ lOCC , IPCO? , lOF , IDH, IDH2, IDH20 , IDO , lOOH , ID02 , ION, 

R 1 IDN0,IDNC2,IPN2,I0N20, lEOUIL ,IHCPS,1MAT,IPP,ITER,JJ,KNTC5,NA,NLH, 

5 2 NS,NSEl,NSf‘2,NSK,NSM,NSl ,NS2,ID(R,15) 

6 3/PARAHS/ CONVG, DEBUG, FHV,LPSS, GASCON, ITHAX, PA, 3H, TINY, TINYKfTR, , 

7 4 TLN,TNY 

P 5/5PECES/ASUF4?a,3),CPSUH,HSUH,HC(lR),SMW(I4) ,SD(14),S1 04), 

9 6 S2M4) ,?(2,7,1P| 

10 7 /CCQUIL/ ACC 4,5 ),AFS (4,7,2) , AH (4,5), AS( 4,5) ,ASU4,7,S),BS1( 4,7,5), 

11 8 HDIV,KMAX,HHTN,PHAX,PHIN 

12 9/REACTS/BX( IS) ,BX2( 15),TACT(JS) ,TACT2(1S) ,TENU5> ,TEN2(1S) 

13 END 
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1 c 

2 C — — 

3 CHAPTER llllXlll PRELIMINARIES 1 1 III 1 I 1 

4 C — — — — — ■ 

5 C 

^ C DIMENSIONS AND COMMON BLOCKS. 

7 INCLUDE COMA, LIST 

6 INCLUDE COHByLZST 

♦ INCLUDE COHC.LIST 

lU INCLUDE COHO, LIST 

11 C 

12 C 

13 c — — arithmetic stathent functions. 

14 REXlXtIl = AREX(I1 + |BREXtI}+CREX(l>*(X-XDn) n«tX-XQmi 

15 TMALL(XtI)=DHALL {I» + (EWALLtI)+FWALLm#«X-XnCT) n#tX-XG(I) > 

16 C 

17 CHAPTER 2 2 2 2 2 2 2 GRID AND GEOMETRY 22222222 

14 C- 

IRC , 

20 C SEE BLOCK DATA FOR THE SPECIFICATION OF GRID ANO GEOMETRY. 

21 CALL INIT 

22 CALL 6RI0X 

23 CALL 6RIOOH 

2« DO 225 JX=1,L 

25 XJX:rX<JX) 

26 DO 215 lrl,3 

27 IF (XJX.LT.XOtIH GO TO 220 

2P. 215 continue 

2° 1=4 

30 220 ISEC=I-1 

31 REXr =REXtXJX,ISEC> 

33 225 ADUCT|JXJ=D.5*REXD**2 

33 C 

3u C- . 

35 CHAPTER 3333333 DEPENDENT VARIABLES 3333333 

36 C 

37 C 

3S C SEE BLOCK DATA FOR DEPENDENT VARIABLE SPECIFICATION. 

39 C U(I) = VELOCITY, 

4D C F(I,JHI = STAGNATION ENTHALPY. 

41 C FtI,JP» = MIXTURE FRACTION. 

42 C • F<1,JF> = HASS FRACTION OF UNBURNT FUEL. / 

43 C F(I,JOX) = MASS FRACTION OF OXYGEN. 

44 C Ftl,JTEJ = ABSOLUTE TEMPERATURE. 

45 C FCljJN) = HASS FRACTION OF SPECIES N. 

46 C FCIjJNO) = MASS FRACTION OF SPECIES NO. 

47 C FtI,JN02) = MASS FRACTION OF SPECIES N02. 

48 C FtItJNZO) = MASS FRACTION OF SPECIES N20. 

49 C 

55 C 

51 CHAPTER 44444444 PROPERTY DATA 44444444 

52 C — 

53 C 

54 C — — SEE BLOCK DATA FOR SPECIFICATION OF PROPERTIES. 

55 CALL CREKO 

56 GAHMA=CHIX/tCHlX-GASCON/MHIX) 
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57 

58 

59 

60 
61 
6? 
63 
6« 

65 

66 
67 
6fi 

69 

7'' 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
61 
82 
87 

84 

85 

86 

87 

88 
89 
9C 

91 

92 

93 
9« 

95 

96 

97 
96 
99 

ICQ 

igi 

10? 

103 

104 

105 

106 
1G7 
1D8 
1D9 
lie 
111 
11 ? 
113 


4D 


41 


UO 40 J=1,JN20 
PfJL ( J)=PI>LAH 
PPT( JJrPRTURB 
NFhPR11I=2 

IF ( ASS I PRL 7(1, MODEL) -1.0). IT, TINY) 
DO 41 jr?,jN20 
NFriPPI J)=2 

IF ( ABSIPRLTI J, MODEL ) -PRLTtJ-i, MODEL 
COM riNUE 

FSTOIC:OXC/IOXC+STOICHJ 

FSTOIMrl.O-FSTOIC 




NERPR(n=l 


n.LT.TlNYJ NEHPRtJJ = l 


C 

C — 

CHAPTER 5555555 STARTING VALUES S55S5SSS 

C-— 

C 

C SEE BLOCK DATA FOR SPECIFICATION OF STARTING VALUES* 

INSA VE=INERT 

AnurTO=AaucT(i) 

PPE SS1 = PRESS 

PRC 1 )=PRESS 

PDGSCN:PRESS/BAEC0N 

PPP=l,a-0X3-FUB 

PRC:l,Q-OXC-FUC 

PB=CX3/5MW1 TD02»*FUB/5HW( I0F)+PRS/SHWCIDN2) 
hfC:f XC/SMK(ID0?)+FUC/SMH< lOn+PHC/SHW CIDN2) 

RHOr-PDSSCN/ IWB^'TB) 

RH0rrPD6SCN/<WC>cTCl 

RFX'=REXtC.C,n 

REXrS0=REX0«*2 


FL0P=RH03#UB*D. 5 


FL0C=RH0C#UC#D,5 

RDI V5S = REX3S0/ ( 1 ,0+FLOB9STOICH/ t ( FLOC »TINY I *EQRA T+0XC)1 
ROIVrSORTCRQlVSO) 

FL05=FLC9*RDIVSO 

FLDC=FL0C«(PEXL‘5C-RDIVS0) 

OHOI VzFLOtV (FLOP+FLOCl 
PSIE=FLOB+FLOC , 

C SECUENCE TO PUT CELL BOUNDARY AT OHDIV. 

IFCOvoiV.LE.l.E-lC.OR.OMOlV.GE.Cl.-ltE-lO)) GO TO 53 
DO S2 1=2, NMl 

IFtOMIMTt J)-OHDIV) 52»S3,S7 
57 IDIV=1+1 


GO TO 58 

52 CONTINUE 

5B FAC=0M0IU/0«INT(IDIV-1 J 
DO 59 I=2,1DIV 
59 0H( I )=OMCI)>!fFAC 
CALL GRIDOH 
CALL OUTPl 

C one-dimensional SOLUTION OBTAINED FROM SUBROUTINE START. 

53 IF(WF.NE.C) CALL START 
TK = TE 

IHCPSn 


NS1=IDN2 
NS2=I002 
S2l I0N2)=PSB 


ft 


150 



114 52nOF)=FUB 

115 S?II002)=0XB 

tl6 CALL HCPS 

117 EM7HB=lHniI002)*OXB + HOUDF»*FUB+HOlIDN2>'»PR&l»GASCON*TB 

118 1K=TC 

119 CALL HCPS 

120 ENTHC = (HaiIPO?)*OXC + HnnOF)9FllC + HOITDN2J*PRC»*GASCOH*7C 

121 c insertion into arrays. 

122 DO 501 IY=1»N 

123 DO SOb JX=2,3 

129 IXV=1Y+(JX-1 )*N 

125 F(IXY,JN)-1.0E-20 

126 FIIXY,JN01=I.OE-15 

127 FIIXY,JN02J=1.0E-2Q 

128 SD6 FclXY.JN20l=1.0E-20 

129 IF « 0H( IV ) .GT.OHDIV » GO TO 503 

130 DO 5C4 JX=l,S 

131 IXY=IYttJX-l)#N 

132 uaXY)=U8 

133 FCIXY»JH)=ENTHB 

134 • FtIXY, JOX)=OXB 

135 SP4 F(1XV,JPJ=FUB 

136 F(IY,JF>=FUB 

137 F(IY,JTE1=TB 

138 FSU Y,IDN2)=PPB 

139 FSI IY,ID02)=OXB 

140 FSt lY.IDF »=FUB 

141 RHOtIY)=RHOB 

142 RHOl IIY )=RHOB 

143 RH02 tlY)=RHOB 

144 60 TO 501 

145 503 CONTINUE 

146 DO 505 JX=l,3 

147 1XY=IV+(JX-1 )*N 

148 U<IXYJ=UC 

149 FJIXY,JH)=ENTHC 

15D FtIXY,J0X)=OXC 

151 505 FtIXY,jp)=FUC 

152 F(IV,JF»=FUC 

153 F{IY,JTE>=TC 

154 FStIY,IDN2)=PRC 

165 FS(TY,IDD2J =OXC 

156 fS(IV,IDF)=FUC 

157 RHOtIYJ=RKOC 

158 RH01tlY)=RHOC 

159 RH02tlYl=RHOC 

16C 5D1 CONTINUE 

161 IFINF.GT.DI SO TO 7D0 

162 JXX=D 

163 DO 510 JX=2rL 

164 JXX=JXX+N 

165 DO 51D IY=1tN 

166 IXY=IY+JXX 

167 F(IXY,JF1=F(IY,JF) 

168 F(IXY,JOX J=F(IYtJOX) 

169 610 F(IXY,JTE1=F(IY,JTE) 

170 C 
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171 

172 

173 

174 

175 

176 

177 

178 

179 
160 
U1 
162 
UI 

164 

165 

166 

167 

168 
169 

190 

191 

192 

193 

194 

195 

196 

197 
196 
199 
260 
2Cj1 
2b2 
2u3 
204 
265 
2G6 
2d’’ 
208 
2U9 

210 

211 
212 

213 

214 

215 

216 
217 
21? 

219 

220 
221 
222 

223 

224 

225 

226 
227 


C EMTER MAIN LOOP AT CHAPTER 7. 

GO TO 700 

C 

CHAPTER 6 6 6 6 6 6 START OF A NEH FORWARD STEP 6666666 

C-- — 

C 

too 05(:ys(rx+n 

XDSXU+OX 

IF (hilTER.GT.Qj GO TO 70 
INERT=I 

IF(y(li( + iJ.GT.XDt21) INEBTSINSAVE 

IF tlX.EO.ll GO TO 70 

IXN:IX*N 

1X^!U=1XN-N 

ixNo=ixN*N page is 

DO 6 02 1Y = 1,N 

UU=U(IY+TXNU1 g\-C» POOK QuAL'iJ'^ 

U{IY+IXN)=Dl; ^ • 

U(IY+IXND»=UU 
00 £G2 J=1,JHAX 

IF I J,EO.JF.OP.J,EC!*JTEJ GO TO 602 
FU=F <IY+:XNU, J) 

Firy+ixN,j)=Fu 
FUV+IXND, J)=FU 
OD2 COMTIHOE 
GO TO 70 
C 

c 

CHAPTER 7777777 BOUNDARY CONDITIONS 77777777 

C 

C 

C boundary conditions at E boundary (DUCT UALLl. 

7DD TAUfrO.G 

IF (M00(NITER,ISHP) .NE.Q, ANO.ISTRT.NE.il TAUE=TAUSAV 
IF (NITER. GT.O) GO TO 90D 
IBEMJHJri 
DO 7413 J=2,NF 

7413 IPiX(Jl=2 
IHCPS=1 
NS1=IDN2 
NS2=ID02 

PO 7414 JX=ltL 
DO 705 lrl»3 

IF { XI JX) .LT.XDtl n GO TO 710 
7C5 CONTINUE 
1=4 ^ 

71Q ISEC=I-1 
1XY=JX*N 
U{IXY1=Q.D 

TK = TWALLIXI JX) ,ISECI 
F (IXY,JTE)=T1I 
IF(JX.3T.21 GO TO 7414 
CALL HOPS 

FITX Y,JH) = (HO(in021'i'OXC+HCCIOFl*FUC4-HOnDN2)*PRC)=XGASCON*TK 

7414 CONTINUE 
GO TO 900 

C 
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ZZ8 CHAPTER 8BB8B688 ADVANCE 888888 6 888 

229 C — — — — — 

230 C 

231 C ESTIHATEP PRESSURE GRADIENT. 

232 C PRESSURE GRADIENT DUE TO AREA CHAfiGE. 

233 TO AFLOWUSAFLOWO 

23i| AOUCTD=ADUCt<IX*l) 

235 0A=ADUCT0-AFL0HU 

236 DPDX=DA/10ADPH>DX> 

237 C PRESSURE GRADIENT DUE TO HALL SHEAR. 

238 OPOX=D»OX-TAUE+R tN)/ADUCTO 

239 DPOXH=ABSCDPDXJ *DX 

240 DO 823 IY=2,NHl 

241 IXVriY+lXX 

242 RESU(IY»=UtIXY+Nl 

243 RU?rBF3AC*RH0tIVl#UtlXYJ#*2 

244 823 0P0XH=AHIN11DPDXH,RU2> 

245 DPDX=DPDXM*ABStDPOX)/<DX*(DPDX+TINYn 

246 C CALL SUBROUTINE SOLVE — 

247 CALL SOLVE 

248 IF tINERT.EO.lJ GO TO 825 

2h9 CALL TEHP 

250 CALL DENS 

251 IF tlEOUIL.EO.n CALL EOUIL 

252 IF (KNTCS.EO. 1. AND. NITER. GE.NITERK) CALL KINE 

253 625 XU=XD 

254 ISTEP=ISTEP+1 

255 IXXriXX+N 

256 IX=IX+1 

257 DO P24 IY=2,NH1 

258 824 ARE«U(IY|rAREACIYJ 

259 IF (IX.EO.ISTRTJ TAUSAV=TAUE 

260 C 

26 I C 

262 CHAPTER 99999999 COMPLETE 9999999999 

263 C 

264 C 

265 900 PRESS=PRESS+DPDX*DX 

266 IF (NF.EO.D) GO TO 9410 

267 IF tINERT.EQ.2l GO TO 941D 

263 IF tlX.EO.n GO TO 9410 

269 IF tPOOlNITER.lSHP) .NE.O.AND.ISTRT.NE.l.AND.IX.EQ.ISTRT) 

270 l.GO TO 94ia 

271 PDGSCN=PRESS/GASCOH 

272 lHCPSr2 

273 NS1=IDN2 

274 NS2=ID02 

275 DO 907 IY=1,N 

276 IXV=IY+IXX 

277 FFU=FtIXY,JFJ 

273 FOX=OXC*(1.0-FFU> 

279 FlTXyfJOX>=FOX 

280 FPR=1.D-FFU-F0X 

281 FStIY,I0N21=FPR 

282 FSt IY,IDF)=FFU 

2B3 FSt IV,ID02)=F0X 

284 TK=F (IXYi JTE) 



285 

286 

287 

288 
26‘J 
29n 
291 
?92 
297 

294 

295 
295 

297 

298 

299 
3QQ 
3U1 
302 
3 Li 3 

304 

305 

306 

307 
305 

309 

310 

311 

312 

313 

314 

315 

316 

317 
315 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


IFUy.EQ.Nl GO TO 9412 
ENTHriFUXV, JH)-n,5*UUXy)**2)/GASC0N 
00 9417 I=NS1,NS2 
9417 S2m = FStIY*I» 

DO 9414 IT=ltNTHAX 
CALL HCFS 

FACTOR:l.Q+(FNTH/TK-HSlJH)/CPSUrt 
TKrTK*F ACTOR 
TK=AriNl«THAX,TK) 

TK = AMAXl(T>iriJ,TK) 

DTEf'P=tFACTOR-l,rt) /FACTOR 
IF (ABS(0TEHP),LE.EPSTJ go to 9413 

9414 CONTINUE 
IT=IT-1 

JRITf (6,9415) IX,1V,IT,TK,DTEHP 

9415 FORMAT (IHO , ID ( 1H-) ,2X, 31HP00R CONVERGENCE OF TEHPERATUPE/13Xt 

1 THAT IX :,T3,1PH, AND lY =,I3/13X,22HNUHBER OF ITERATIONS =,13/ 

? 13X,13HTEHPERATURE =,1PE15.6/13X,7H0TEHP = , 1PE15 . 6/13X » 

3 lBP>*'f>HAIN PR0GRAH#=C9i/) 

BO TO 9413 
9412 IKCPSri 

CALL HCPS 

FaXY,JH)=HSUM#GASCON#TK 
5413 F(IXY,JTE)=TK 

VHiy:FFU/SHW{IDF)+F0X/SHW(ID02) +FPR/SHW t I0N2) 

RKO ( lY) rPDGSCN/ (TK*VHIX) 

IF (IX.EO.ISTRT) RH02aYl=RH0(IY> 

5D7 CONTINUE 
C 

C 

CHAPTER ID ID ID ID ID 10 10 ADJUST ID ID ID ID 10 10 ID 

C — 

C 

9410 CALL DISTAN 

AFLOWD=Q,5*R(N)**2 

DA1=ADUCTD/AFL0WD-1. 

ALPHA=1 .0 

C DEPENDENCE OF AREA ON PRESSURE. 

NIT = Q 

1024 NIT=NIT+1 

6A«PRS=1.0/{GAHHA*PRESS) 

SUHrD.D 

DO 1025 IY=2,NHI 
1XY=IY+IXX 
RU2-PU( IY)4U(IXYI 
FACTORS . D-PU2*B A HPRS 
1C25 SUH = SUH+8CM (IY)5»FACT0R/ 1 RUE^^RUCIY) > 

DADP=PSIE*SUH 

I‘^lPODtNITER,TSWP),NE,O.AND.I5TPT»NE.l,AND.IX.EQ.3STRTI GO TO 1022 
IF (ABS(DA1).LT.DA»IN» GO TO 1D22 

C ^ — adjustment of PRESSUREtVELOClTIESjAND DENSITIES. 

DP=rAl#AFLOWD/DADP 

OPHIN^ABStDP) 

DO 1E21 IY=2,NH1 
RU2 = PFRAC#RH0(1YI*U tIY + IXX)4«*2 
1021 OPHI\=AMIM (RUZjDPHlH) 

DP=DPMIN*A5S (DP)/DP 





34? DP=DP*ftLPHA 

343 PPESS=PRESS+OP 

344 RH0FAC = 1*D+I5P*6AHPRS 

345 DO 10?7 IY=?tMHl 

346 . . 1XY = IY + IXX 

347 UlIXYI=tt{IXYJ-OP/RU{IV) 

348 1027 HHOnYl=RHO(IYJ*RHOFAC 

344 RHO( 1)=RH0(2» • 

350 RHD»NJ=RH01NH11 

351 UHtlXX)=Ut2<-IXXI 

35? CALL DISTAN 

353 AFLOUD=0.5*R(NI**Z 

354 DA2=ADUCTD/APL0WD-1. 

355 ALPHA=1,D 

356 IF (0A24DA1 .LE.n.D) ALPHA=D.5 

357 IF J<\BS(0A2).LT,DAHIN) GO TO 1022 

353 IF (MT.GE.NDAMAX) GO TO 1022 

359 DA1=DA2 • , 

360 GO TO 1024 

361 1022 PR(IX)=PRESS 

362 IF ClX.EQ.l) GO TO 1030 

363 DO 1029 IY=Z»NH1 

364 IXy=IY^IXX 

365 RESUIIY)=UtIXYJ-RESU(m 

366 ST0RE=ABS(RESU11Y1 ) /UflXY) 

367 IF tSTOREiLE.RSUHAXJ GO TO 1029 

363 RSOKAX=STORE 

369 1RHUX=IX 

370 IRHUY=IY 

371 1D29 CONTINUE 

372 1030 continue 

373 C 

374 CHAPTER 11 II 11 11 11 11 11 11 11 11 PRINT 11 11 11 11 11 11 

376 C—* 

376 C 

377 C SEE BLOCK DATA FOR SPECIFICATION OF PARAMETERS FOR CONTROL 

378 C OF PRINTOUT. 

379 CALL 0UTP2 

380 C . 

381 C — 

302 CHAPTFR 12 12 12 12 DECIDE ABOUT NEXT FORWARD STEP 12 12 12 12 12 

383 C 

384 C 

335 IF(TX.EO.IEND.AND.MOO(NITER,ISWP) .NE.Q) GO TO 1211 

386 IF (IX.NE.LMII GO TO 6QQ 

387 IFIN=2 

388 C . ^ 

389 CHAPTER 13 13 13 13 13 13 EXIT BOUNDARY 13 13 13 13 13 13 13 

39D C 

391 C 

392 LN=LH1*N 

393 DO 1207 IY=1»N 

394 IXY=IY+LM 

395 U(IXY»rU[IXY-Nl 

396 DO 1207 J=1,JHAX 

397 FMXY,J)=FtIXY-N.J» 

398 1207 CONTINUE 


155 


399 

400 

^al 

<•02 

403 

C 

PRU J = PRtL-l) 
1X = L 
1XX=LN 
CALL 0UTP2 

H 3M 

c 


4G5 

CHAPTER 14 14 14 14 14 DECIDE ABOUT NEXT ITERATION 14 14 14 14 

406 



4U7 

c 


40S 

1211 

NITEP=VITER+1 

4U9 


IF (NITER. GT.MITHAXJ GO TO 1205 

410 


IF (RSUKAX.GT.EPSF) 60 TO 1208 

411 


IF (NF.EO.O) GO TO 1202 

412 


DO 1209 J=1,NF 

413 


IF ( RSFpaXI.J) .GT.EPSF ) GO TO 1208 

414 

12P9 

CONTINUE 

415 

1202 

MTMAX = NITEH 

416 

1208 

IF ( NITER. NE.NITHAX) GO TO 1212 

417 


NPR0F=1 

418 


ISTRT=1 

419 


1END=L 

420 

1212 

IF (HOD (NlTERtlSWP) .NF.O.ANO.TSTRT.NE.1) GO TO 1210 

421 


CALL INIT 

422 


PRE5S=PRESSl • 

423 


ADUCTD=ADUCT(ll 

424 


DO 1220 IY=1,N 

425 


RHO(IV>=RH01tlY> 

426 


FS( I Y.IDF T = FaYt JF) 

427 


FS(IY,ID02)=F(IYtJ0X) 

42B 

122D 

FS(IY,IDN2)=1.D-FS(IY,IDF)-FS(1Y,ID021 

429 


60 TO 700 

4 3R 

1213 

IX=ISTRT 

431 


ISTEP=IX*1 

432 


IXX=ISTEP*N 

433 


IF1N=1 

434 


PREES=oR(15TRT» 

435 


AOUCTD=ADUCT(TSTRTJ 

436 


DO 1221 1Y=1,N 

437 

1221 

RHQ ( IV ) =RH02(IY) 

4 38 


DPDX=G,0 

439 


XU=r-.5<' (XdSTRT 1+X( ISTRT+11) 

440 


GO TO 700 

441 

1205 

CONTINUE 

442 


STOP 

443 


END 


156 


1 BLOCK DATA 

. 2 INCLUDE COHAtLIST 

3 INCLUDE COHBiLJST 

<j INCLUDE COHC,LIST 

5 INCLUDE COHOfLlST 

6 C 

7 C - 

S CHAPTER 1 1 I I 1 1 I I PRELIMINARIES 1 I 1 1 1 1 I 1 

9 C : — -- 

ID C 

n DATA KASE/I/ - 

12 DATA ITEST/1/ 

13 DATA NITER/D/ 

14 DATA NITHAX/l?/ 

15 DATA EPSlD/n.Dl/tNlOHAX/25/ 

16 DATA EPSF/D.D05/fFHIN/l,DE“4/ 

17 DATA ISTRT,IENDtISWP/20,a&,l/ 

18 DATA 8FRAC,PFRAC/D.l,0.2/,NDAHAX/15/,DAHlN/1.0E-3/ 

19 DATA BIGtTINY,TlNYK,TNY/1.0E2D|l.aE-10,1.0E“3D,-69in776/ 

20 C 

21 C 

22 chapter 2 2 2 2 2 2 2 GRID AND GEOMETRY 2 2 2 -2 2 2 2 2 

23 C 

24 C 

25 C — GRID 

26 DATA L/35/ 

27 DATA N/ID/ 

28 DATA X/Q.Qt D<1 t 0.2, 0.3,Q.4tD.5tD.6tn *605,0*61 1 p 615« *62,0.625 tD*G3» 

29 1 0.6 35, 0.64, 0.645, 0.65, 0.65 5, 0.66, 0.665, 0.67, 0.675, 0.66,0.6 85 4 

30 2 0. 69 , 5. 695, 0.7,0. 75, r.S, 0.9, 1.?, 1.1,1.2,1.25,1. 3/ 

31 DATA OM/0. 0,0. 009, 0.018, 0.027,0. 11, 0.24 ,0.38,0.55,0.75,1.0/ 

32 C EEOHETRY 

33 DATA AREX/D.Dl,0.01,O.D3/,BREX/0.a,0.2,0.0/,CREX/3#0.0/, 

34 1 XD/C.a,D.b,D,7/ 

35 C 

36 C 

37 CHAPTER 3333333 DEPENDENT VARIABLES 3333353 

38 C-' 

39 C 

40 DATA NF/3/ 

41 DATA IMAX,IPR,JMAX/15,15,9/ 

42 DATA JHfJP, JF,JN, JNO, JN02, JN20,JOX,JTE/l,2,3,4,5,6,7,a,9/ 

43 data IDN,IDNO,IDN02,IDN20,IDN2,IOF,IDOZ,IDCO,TDC02,IOH,IDH2,1DH20, 

44 1 IDO, IDOH/1, 2, 3, 4, 5,6, 7, 6,9,10, 11, 12, 13, 14/ 

45 DATA ISPEC/4,5,6t7,a,3,e,7'!‘0/ 

46 DATA NSK/4/,NSE1/8/,NSE2/14/ 

47 C 

48 C ' — — ' 

49 CHAPTER 44444444 PROPERTY DATA 44444444 

50 C — ^ 

51 C 

52 C S. I. UNITS 

53 C THERMODYNAMIC PROPERTIES. 

54 DATA GASC0N/B314.4/ 

55 DATA NTKAX/1D/,EPST/0.0DI/ 

56 DATA CMIX/llDD.O/ 


157 


57 

5S 

59 

&D 

bl 

82 

e>3 

64 

65 

66 
67 
65 
69 
7(1 

71 

72 

73 

74 

75 

76 

77 
7B 
79 
BO 
81 
82 
63 

84 

85 

86 
67 
8B 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
IOC 
ICl 
102 
103 
llj4 

105 

106 

107 

108 

109 

1 10 
111 
112 
113 


C 


C 

c 


c 


c 

c 


c 

c 

c 


DATA HHIX/29,0/ 


DA 

DA 

DA 


CHEMICAL PROPERTIES. 

TA 5T0ICH,APRC0l'!fPRFEXP/4.Otl8QOO.Q|0.OO3/ •POOP IS 

TA TMAX,T«IN/4D00. 0,273.0/ 

TA NPUMAX/lO/.FUTEST/O.Ol/ 

DATA EPSS/a.QOl/.ITMAX/SD/ 

DATA NITERK/1/ 

DATA 1DF3UG/1/ 

DATA IEOUIL/1/ 

DATA KVTCS/1/ 

DATA IMERT/2/ 

DATA HDIV,HMAX,HHIN,PMAX,PHIN/-8.24F6,-2.16E6,-1 .0E7 ,5.DE5 , 1 .DES/ 

polynomial coefficients for specific HEAT OF EOUTLIBRIUH- 

PROOOCT-SPECIES - CUBIC FUNCTIONS OF TEMPERATURE. 

DATA AC/ 

1 1.294E-D1, 9,890E-05,-2.49BE-DB, 2.126E-12, 1.Z94E-D1, 9.895E-05, 
2-2.5r7E-D8, 2.H3E-12, 1.294E-01t 9.89SE-05 ,-2.512E-D6, 2.183E-12t 
3 1.294E-D1, 9.e99E-D5,-2.516E"D8, 2.196E-12, 1.294E-01, 9,9DaE-aS, 
4-2.518E-0a, 2.2D7E-12/ 

POLYNOMIAL COEFFICIENTS FOR ENTHALPY. ‘ 

DATA AH/ 

8.313E-01,-5.153E-a4, 


1- 1.6C6E+D3, 

2- 4,3fcQE-D4, 

3- l.E'‘2E+03, 


1.281E-D7 ,-1.579E+03, 
l,075E“D7,-i.563E+D3, 6.92BE-D1 ,-3.940E-04, 


7.412E-D1, 

9.669E-0B, 


8.963E-08 ,-1.544E+03, 6.36ZE-01* 


6.6?4E-D1,-3.661E“C4, 

4-3. L .E-04, 8.441E-D8/ 

POLYNOMIAL COEFFICIENTS FOR RECIPROCAL OF MEAN KOLECULAR 

WEIGHT, 

DATA AS/ 

1 3.366E-az, l.D7SE-C5,-8.5S8E-09, 2.042E-12, 3.415E-02, 9.316E-06, 
2-7.330E-09, 1.7I6E-12, 3.44DE“0 Zt &.544E-D6 ,-6.66SE-D9, 1.547E-12, 
3 3.457E-D2, 8 .C27E-D6 , -6 . 224E-09, 1.435E-12, 3.470E-U2, 7.643E-D6, 


4- 5.e98E-09, 1.354E-12/ 

polynomial COEFFICIENTS FOR CONCENTRATIONS OF EOUILIPRIUH- 

PRODUCT-SPECIES - LOGCCONCENTRATION 1 AS A CUBIC FUNCTION 
OF ENTHALPY. 

COEFFICIFNTS ASl FOR ENTHALPY .BE. HMIN, AND .LE. HOIV., 
COEFFICIENTS BSl FOR ENTHALPY .GT. HDIV, AND .LE, HHAX, 

DATA H(ASUI,J,K),I=1,4),J=1,7»,K = 1,3)/ 

1-2.1C3E+D1, 1 .29 3E+C2,-4.79 2E + u 2, 7 .870E+CI2 , -5.9 81E-D1 ,-6,9R3E-0 3, 
2 l.25eE-01,-5.925E'Cl,-3.48DE+01, 1 . 849E +DZ , -6. 624E+02 , 1.067E+03, 
3-2.2 33E+01, l,0e8E + D2,-3.99SE+C2, 6 . 526E+02 , -7. 98 lE-Dl , -5 .74 3E-0 3, 
4 l.r74E-Dl,-5.2F5E-Dl,-3.085E+Cl, 1.853E+02 ,-6.477E+D2, 1.D21E+03, 

5- 1.927E+01, l.l“DE+C2»-4.006E+u2, 6 . 337E+02 , -2 . 1 26E+Q1 » 1.293E+02t 

6- 4.75cE+D2, 7.699E+C2 ,-5. 951E-D1 t- 5.58DE-03 , 1 . DIBE-Ol , -4 , 767E-0 1 , 

7- 3.E2faE+01, l.S50E<'G2,-6.634E + C2, 1 .Q72E+03 ,-2.ZS6E+Ul , 1.089E+02, 
E-3.9 90E+02, 6 . SE 2E *CZ , -7 . 9fi 1 E-01 , -4 . 693E-D3 , 8.745E-D2,-4 .284E-01, 
9-3.131E+D1, l.a53E*C2,-6.457E+D2, 1 . D26E+D3 , -1 . 95DE+D1 , 1.140E+02, 
X-4.D13E+D2, 6.375E+D2 ,“2. 140E+C1 , 1 . 294 E +02 , -4 . B03E+D2 , 7.918E+02, 
A-5. 9F1E-01,-4.918E-D3, 8 . 93 3E-C2 , -4 . 1 92E-0 1 , -3. SS 3E+C 1 , 1.85DE+02, 
5-6,6405+02, l,C75E+C3,-2.270E+01, 1 . DB9E+D2 , -3, 995E+02 , 6.570E+02, 
C-7.941E-in,“4.159E-C3, 7 , 736E-D2 , “3 . 7B1E-D1 ,-3«15BE+Dl, 1.B53E+02, 

0- 6.491E+D2, l.D3DE+C3,-l,964E+0I, I . 140E+02 ,-4 .D15E+D2, 6.391E+QZ/ 
DATA (( (ASin,J,K), 1 = 1,4) ,J = 1,7),K = «,5)/ 

1- 2. 150E+01, 1 ,294E+02,-4.BD6E+D2, 7 . 930E + D2 , -5 . 98 lE-01 , -4 , 494E-0 3, 
2 8.161E-02,-3.B2SE-C1,-3.573E+01, I . 8 5DE +D2 , . 643E+02, 1,077E+D3, 
3-2.2 79E + B1, l.DB9E + D2,-3.997E+02, 6 , S80E + Q2 , -7. 98 lE-01 , -3 . 8 1 3E-03, 
4 7.r85E-D2,-3.459E-Cl ,-3. 178E+01 , 1 .853E+02 ,-6.493E+C2, 1.032E+Q3, 


15B 


n*t 


5-1.973E+01, 

l.l«DC+02,-4.D17E+02, 

6.4D2E*n2,-2.lS7E+Dl, 

1.29SE+02, 

iis 


6-4.B11E+D2, 

7.944E+C2,-S.9alE-01, 

-4.188E-03, 7.603E-02,-3.561E-m» 

ii& 


7“3.58BE+ni, 

l.B51E+a2,-6.647E+D2, 

l.D79E*n3, ‘•2.28 72 + 01, 

l.Q9DE+n2, 

117 


8-4.PG2E+02, 

6.593E+02,-7.981E“Dl, 

-3,563E‘*a3, 6*615E-D2,-3.2?5E-01, 

US 


9-3.192E+01, 

1,B53E+02,-6.492E+Q2, 

1,033E+03,-1.9B1E+01, 

1.140E+02, 

U9 


X*-4,P16E+D2, 

6.4D7E+C2/ 



12Q 

C 





121 


DATA (C (8Sl(ttJ,K)tI=lf9),J=l,7)« 

K=1,3I/ 


122 


1-1.356E+01, 

3.797E + 01,-4.S66E*01 , 

1.922E+Dl,-6.4D9E-01, 

4.4B7E-DI, 

123 


2-K269E+00, 

4.56SE-01,-2.402E+01, 

S.b78E+Pl,-6.813E+01, 

2.6852*01, 

12<» 


3-1.61lE+ai, 

3.302E+01,-3.918E*01, 

1.649E+01.-8.034E-01, 

1.444E-01, 

125 


4-S.913E-01, 

2.3D7E-01,-1.97SE+01, 

5.715E+DI,-7,0DSE+01, 

2.987E+01, 

126 


5-1.245E+01» 

3.493E*Dl,-4.297E+01, 

1.S31E+01.-1.396E+01, 

3.8882*01, 

127 


6-4.642E+01, 

1.943E*01,-6.4B2E-01, 

4.791E-0X,-1.261E+D0, 

4. 3912-01, 

12S 


7-2.478E+01t 

5.841E+01,-6.9S9E+01, 

2.931E+D1 ,-l .648E+01, 

3.3802*01, 

129 


6-3,962E+Ql, 

1.668E+Ol,-a.lOaE-01, 

1.S02E-01 ,-6,237E-01, 

2.417E-01, 

I3n 


9-2.D56E+01, 

5.9I6E+01,-7.200E+ai, 

3.Q53E+01 ,-1.289E+01, 

3.6152*01, 

131 


X-4.mSE+0It 

l.871E*Dl,-1.41BE+01, 

3.934E+D1 ,-4.674E+D1 , 

1.949E+01, 

132 


A-6*517E-01, 

4.9D9E-01,-i.245E+OQ, 

4,241E-01 ,-2.52DE+0l, 

5.924E+01, 

133 


B-7.C25E+D1, 

2.948E+01,-1.670E+D1, 

3.419E+ni ,-4.009E+01, 

1.673E+01, 

139 


C-8,13SE-01, 

1.989E-01,-6.38DE-Q1, 

2,457E-Oi,-2.1D2E+Oi, 

6.020E+01, 

135 


D-7*29IE+D1, 

3.DflOE+Dl,-1.3l4E+Dl, 

3.678E+01 ,-4.470E+01, 

1.887E+ni/ 

136 


DATA (1 tBSl tit JtK 1,1=1,41, J=l,7), 

K=4,5>/ 


137 


1-1.434E+D1, 

3.963E+C1,-4.690E+D1, 

1,951E+D1,-6.538E“Q1, 

4.965E-01, 

13Q 


2-1.229E+DC, 

4,114E-0i,-2.S49E+01, 

5.976E+D1,-7.062L+01, 

2.956E+DI, 

139 


3-1.6e4E+01, 

3.443E+01,-4.023E+C1, 

1.674E+D1,-«.159E-Q1, 

2.110E-01, 

140 


4-6.456E-D1, 

2.473E-01,-2.133E*D1, 

6.D8eE+0i,-7.346E+Ol, 

3.09SE+01, 

141 


5-1.331E+01, 

3.719E+D1,-4.5D3E+01, 

1.895E+ai,-I.445F+01, 

3.9832*01, 

142 


6-4.7CDEt01, 

1,9S1E+DI,-6.552E-D1 , 

4.992E-Dl,-1.214E+00, 

4.003E-01, 

143 


7-2.572E+ni, 

6.D14E+Di,-7.0S6E+Dl, 

2,959E+01,-l.b9S£+Di, 

3.460£*01, 

144 


8-4.n32E+Dl, 

l,674E + Cl,‘'e.l77E-Dl, 

2.196E-Dl,-6.5dlE-Dl, 

2.478E-01, 

145 


9-2.:57E+D1, 

6.136E+D1 ,-7.3B2E + Dl, 

3.103E+01 ,-l,344E+01, 

5.748E+01, 

146 


X-4,524E+Q1, 

1 .9D0E+01/ 



147 

c *■ 




140 


DATA VISED, 

VIS0V,VI5PP,VI5MIX/4*1 

.e-6/ 


149 


DATA PSLAF, 

PRTUPB/D.70,0.86/ 



ISO 


DATA AK,EHAL/D.435,9.D/ 



151 


DATA HOOEL/2/ 



152 


DATA H/D.9/ 




153 

C 





i 9^ 






15S 

CHAPTER 555 

S 5 5 5 STARTING VALUES 55555 

5 5 S 













157 

C 


) 



158 

c - 


STREAMS ENTERING - STREAM B IS PURE FUEL, AND STREAM 

159 

c 

C IS 

AIR. 



16D 


DATA U3,UC/ 

.6, 6.D/,TB,TC/294.D, 

810.0/ 


161 


DATA FUB,FUC/1. ,0,/ , CXB,OXC/D.,. 

232/ 


162 


DATA PRESS/4 *D53ES/ 



163 


DATA E0RAT/D,4/ 



16' 

c 





1 D 






166 

CHAPTER 666 

6666 BOUNDARY CONDITIONS 66666 

6 6 6 

167 

u — 





168 

c 





169 

c - 



170 


DATA DU ALL/BID. 0, 11 10. Q, 11 10, O/tEWALL/SOD, 0,0. 0,-500*0/ 

t 


171 

17? 

173 

174 

175 
17.fe 

C 

1 PW/aL/31-0.0/ 


CHAPTER 7 


7 7 7 7 

7 7 7 7 PRINT 7777777 7 777 

c 




177 

176 

179 


OATP 

DATA 

DATA 

tJSTAT.NPPOF 

NPRIMT/20/ 

NlDPfi/?5/ 

,NPL0TC,NPL0TL/3*lDD00il/ 

180 


DATA 

IPLOT/ 

3Q«35/,IPL0TH/D/ 

181 


DATA 

ICLOTU/.’/ 


182 

1S3 

c 

£»D 




160 



•I 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
3? 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SUBROUTINE START 
INCLUDE COHA, LIST 
INCLUDE COHP,LIST 
INCLUDE COHC,LIST 
OIHENSION IS0LVE(3) iFOUMl ( 100 I , FDUH? I IDO ) .FOUHSl IQQl 
THALL(X,n = DWALL(I) + «FWALLtI)*FHALUCII*lX->m{in)*tX-XUm> 

C 

C — — 

CHAPTER 1 1 1 1 1 I 1 1 PRELIHINARTES lllllllll 

C — — 

C 

DATA AFU,AOX,AH20,AC02,AN2/21 13. 9, 976. 9, 2068. 2, 938.6,1102.5/ 

DATA BFU, BOX, BH?0,BC02,BN2/ 1.9996, 0.1 0755,0.36872,0.238, 0.09525/ 
DATA HFU,C0?H20/5. 5027,1.2222222/ 

DATA JS0LVE/5tlDDQ0,l/ 

DATA TINY/l .OE-ID/ 

DATA NIT/0/ . . .. 

CFH20=( l.O+STOICH)/ {1.U+C02H20) 

STOPE=STOICH/IEORAT*OXC) 

FUUNB=1 .0/(1.0*STORE3 

FOXUNB^OXC^STORE^FUUNS 

FPRUNE=1.0-FUUNB“FOXUNB 

PR3=1.D-FUB-0XB 

PRC=1,0-OXC-FUC 

AMIX=AFU*=FUP+AOX*OXB + AN2>!<PRB 

aMTX=BFU#FUB+B0X*0X8 + BN2iCtpRB 

CMIXB=AHIX+BHIX#TB 

AHIX=AFU*FUC+A0X90XC+AN2>I'PRC 

BHIX=AFU*FUC+B0X*0XC+BN2*PRC 

CHIXC=AMIX+BHIX#TC 

ENTHB=CHIXB*TB+HFU9FUB 

ENTHC=CHIXC*TC + HFUi4FUC 

ENTH=(FLOB*ENTHP+FLOC*ENTHC)/PSIE 

AMIX=AFU*FUUNB+A0X*F0XUN3*AN2*FPHUNB 

BHlxrBFU*FUUNB+“0X*F0XUNB+BN2*FPRUNB 

TUNP-(-AMIX + S0HTCAHIX*=i=2-4.C*BHIX*(HFU*FUUNB-ENTHn J/C2.D+BHIXJ 

T1-PREEXP’4PRESS*’F2 

FJPrFUUNB 

PHI=(FJP-FST01C)/FST01H 
FUBRN=AMAX1CD,0 PHI) 

NN=NF 

IF CINERT.E0.2) GO TO 101 
NN=JH 

FU0RN=FUUNB 

N10MAX=1 

101 F0XBRN=AHAX1 (TINY, t FUERN-PHI)#STOICH» 

FH2C=CFH20#(FJP-FUBRN) 

FC02=C02H20#FH20 

FN2=1.3-FU3RN-F0XBRN-FH20-FC02 

AH1X=AFU«FUBRN*AOX#FOXBRN+AH20#FH20+AC02*FC02+AN2*FN2 
BHiy=BFU*FUBRN+SOX*FOXBRN+3H2 0>»FH2O+aC0 2>f=FCO2tBN2*FN2 
TBRN = (-AHIX + 50RT( AHIX**2-4.Q*BHIX*(HFU*FU3RM-EMH) ))/(2.0#BHIX> 

C 

C 

CKAPTER 22222222 INITIAL GUESS 222222222 
C * 




57 

C 




58 



XDIFF=){g(3)-XD(2l 


59 



TDIFF=TBBN-TUNB 


60 



FDIFF=FUBRN-FUUNB 


61 



0EN0M=1 ,0/1 EXP IXDIFF) -1.01 


6? 



xDirr=i*a/xoiFF 


63 



Ftl , J0X)=F0XUN5 


bCf 



IXX--N 


65 



DO 125 JX=lfL 


66 



IXX=1XX+N 


67 



IXY=IXX+1 


6B 



FCIXY,JHI=£NTH 


69 



DO IDG 1=1,3 


7P 



IF (XtJXJ.LT.XOail GO TO 1D2 


71 


100 

CONTINUE 


17 


102 

ISEC=I-1 


llS 



F(IXX+N,JTE)=TUALLIX(JX) ,ISEC» 


76 



IF (lSEC-2) 103,104,105 


75 

C 




76 


103 

FCIXY, JFJ=FUUNB 


77 



FirXY,JTE)=TUNB 


IB 



FIIXY,JOXJ=FOXUNB 


79 



GO TO 125 


60 

C 



FUEL 

81 

C 


CONCENTRATION. 


6? 

; 

104 

ZETA=XCJX)-X0f2» 


63 



RATI0={EXP(2ETA)-l.D)’i^DEN0H 


B4 



FCIXY, JTE >=TDIFF*RATIO+TUNB 


6*5 



FdX Y, JF)=FillFF*RATIO+FUUNB 


56 



F«1XY, JQX ) = AKAXJ < {FIIXY,JF)-PHH*ST0ICH,TINY1 


B7 



60 TO 125 


i 

V 



SECTION 3 - ALL-BURNT CONDITIONS. 


89 


105 

F«IXY,JF)=FUBRN 


99 



F(IXY,JTE)=TBRN 


91 



F(IVY,JOX)=FOXaPN 


92 


125 

CONTINUE 


93 



IF (ITEST.EQ.il GO TO 130 


94 



DO 126 JX = 1,L 


95 



JOU^ = (JX-II 4^ N + 1 


96 



FDU^'KJX) = F(jnUH,JH) 


97 



FnUF2tJX) = F(JDUH,JF) 


99 



FDUMStJXt = F(JDUH,JTE1 


99 


126 

continue 


IDO 



RRITE16,127 » JH , ( FDUH 1 ( JX ) , JX=1,LI 


lul 



RRITEt6,127) JF , ( FDUH2 ( JX ) , JX=1,L1 


102 



WRITE(6,127) JTE, (FDUH3(JX), JX=1,L1 


103 


127 

FORPAT (1H0,2DHTNIT1AL GUESS, F ( I X , , 12, 1 H 1 / ( 3X, 1 P6E 11 . 3 ) 1 


1U9 

c 









1U6 

CHAPTER 333333 TRANSPORT PROPERTIES 3333333 

3 3 






I U r 

C ' 




1D8 

C 




109 


130 

IF (HO3EL.E0.il GO TO 215 


no 

c 


H00EL=2, TURBULENT FLOW. 


111 



F5IE12=D. 12*PSIE 


112 



AHUL=VISHIX*SCRT(F(N,JTE1 1 


113 



S0APEA=S0RT(D.5*A DUCT (1)1 



162 


llii SHftLF=3.l5«IPSIF/lAHUL#50ftnEA»»i>«(-n.l25» 

ns AHUTP=PSIE12*SHflLF>l'ADUCT(l)/t2.D*SQftREA*XDIFn)) 

116 IXX20 

117 00 210 JX=2,LH1 

lie 1XX=IXX+N 

119 AHUT=AMUTP . 

120 AHUL=VTSHIX#5DRT(rnxX+N,JTEn 

12 ! S0AREA=S0RTtD*5#ADUCT(JXn 

122 SM(\ir:0.15* tPSIE/tAHUL#S0AREAn*#l-Cl,l2B) 

123 AHUTP=0SIE12*SHALF*ADUCn JX 1/(2. O*S0 ARE A*XDIFIJXn 

124 IF IX(JXl.GT.XDt2).AM>*X(JX).LE.Xa(3)l AMUTPslOO.OiOAHUTP 

125 AHUUIJX)-AHUT/XSfJXJ 

126 21C AMUD(JX)SAHUTP/XS(JX» 

127 GO TO 22Q 

120 215 AHULl = «FUUNB>!‘VISFU + F0XUNB*VlS0X+FPRUN6«VI5PR)ASQRTl7UNlJ)*ADUCTm 

129 1 /XDIF(l) 

130 220 N1T=N1T+1 

131 IF tMD0EL.E0.2l GO TO 235 

13? C HOD£L = lt LAMINAR FLOW. 

133 AHULP=AHUL1 

134 IXX=D 

135 DO 230 JX=2.LH1 

136 ixxnxx+N 

137 ixy=ixx+i 

138 AHUL=AHULP 

139 AMULP=I VISFD*F (IXV, JF 1+V150X*F( IXV» JOXJ +VTSPR#(1 .O-F (IXY»JF) 

140 1 “FtIXV,JOXni«SORT(FtIXY,JTE))*ADUCT(JXl/XDIF{JXJ 

m AHUD(JX1=AMULP/XS(JX1 

142 230 AMUUtJX>=AHUL/XS(JX) 

143 C 

J Ijlj — — — — — — 

145 CHAPTER 49444444 MAIN SOLUTION LOOP 44444444 

me 

147 C 

146 235 00 335 J=ltNN 

149 RSFMAXt Jl=D.O 

150 IRHFX(J)-0 

151 IF (KOD(NIT>ltISOLVE(jn.NE.Q) GO TO 335 

152 IF (J.EO.JP) GO TO 335 

153 1XX=0 

154 PRC0N=1.3/PRLTt JrHOOEU 

155 DO 330 JX=2tLHl 

156 1XX=IXX*N 

157 IXYD=IXX+1 

158 P=PSIE/XS( JXl 

159 FFUrPCIXYDr JF» 

160 FOX = AHAXH t FFU-PHI ) *5T0ICH, TINY ) 

161 ALF( JXtJ)=AHUD(JXJ+PHCON 

162 BLF (UX, J)=AHUU( JX)!^PRC0N + P 

163 C STAGNATION ENTHALPY EOUATIONt J=JH) . 

164 IF (J.NE.JH) GO TO 305 

165 TH::F IIXX+N, JTE) 

166 TEF = C.aD15=^PSIE*S0RTl2.D/ADUCT( JXl ) 

167 FH20=CFH209(FJP-FFU) 

168 FC02=C02H20*FH20 

169 FN2=1.D-FFU-F0X-FH20-FC02 

170 AHIX=AFU=f'FFU*AOX9FOX4-AH20=t>FH20+AC02*FC02*AN2*FN2 


163 



171 

17? 

173 

17« 

175 

176 

177 
173 
170 
18f 
161 
IS? 
163 
ISO 
163 
1B6 
1B7 
133 
169 
1^0 

191 

192 

193 

194 
193 

196 

197 

195 
199 
?[if 
?J1 
2Z7 
?lF 
204 
2C5 
2I-C 
2i.7 
2ti^ 
2u'i 

2iC 

2U 

21? 

217 

214 

215 

216 
217 
213 
219 
22Q 
221 
222 

223 

224 

225 

226 
227 


3(15 

346 

344 

330 


3100 

3101 

3102 

3103 


331 


■72 


333 

335 


6HIX=BFUfFFLr+BO)f*F0X + fiH20'!'FH20*BCO2*FC0?i-BN24<FN2 
HWALL=( AHXX+BH1X*TW)*TK+HFU>1‘FFU 
DLFIJX, JJ=ALF( JX,J) +BLF( JXf Jl+TEF 
CLF( JX)=TEF*HWALL 
QO TO 330 

FUEL EOUATJO^ {J=JFJ * 

IF IJ.NE.JFI GO TO 330 
FUEXZFFU-FU4RN 
IF (FUEX.OT^C.D) GO TO 346 
DLF( JXiJI^BIG 
GO TO 344 

TF»“=T1*EXP(-ARPC0N/F (IXYDiJTE) > «ADUCT IJX ) *F 0X 
DLF ( JX, JlrTFRt^frFFU/FUEX 
CLF( JXJrOLFl JX, JMFUBRN 

OLF( JX, J) = DLFt JX, J) +ALF< JX, JH-BLFIJX, J) 

CONTINUE 

IF (ITEST.EO.l) GO TO 331 

WRITE (6, 3100) J, (ALF tJX, J) , JX=2tLHll 

WRITE (6,3101) (BLF IJX, J) ,JX=2,LH1) 

WRITE (6,3102) (CLF(JX) ,JX=2,LH1 ) 

WRITE (6,3103) tOLF ( JX, J) ,JX=2,IH1 ) 

FORMAT (2DH SUBOOUTINE ST ART , F( , 12, 1 H ) / BH ALF { IX J / ( 3X , 1P6E1 1 . 3 ) ) 
FOR^'AT (9H P.LF{TX)/t3X,lP6Ell,3>) 

FOR^-AT IflH CLF(TX1/(3X,IP6E11,3)I 
FORPAT (3h 0LF(IX)/t3X,lP6Ell,3)) 

TDKA SOLUTION. 

CLF.(2J=(3LF (2, J)*F( 1,J)+CLF(2) )/0LF(2,J) 

ELF(2lrALF(2,J)/DLF(2,J) 

00 332 JX=3,LM1 

T=OLF(JX,J) -9LF(JX, J)*ELFtJX-l) 

ELF{ JXI :ALF( JX,J)/T 

CLFt JX) - (ELP( JX,J)>XCLF(JX-1) + CLF( JX) >/T 

DO 333 JXJ=1,LH2 

JX = L-JXJ* 

lxy-(JX-l )X>Nfl 

F0LD=F(IXY,J) 

F (IXY,J )=ELF ( JX )*FHXV + N, J) ♦CLF tJX) 

APSF=A3S(F tlXV, J) ) 

PAXIVUM normalised changes FPOH previous ITERATION. 

IF (ABSr.LE.FMIN) 50 TO 333 

ST0FE2=AaS(F( IXY, J) -f OLD)/ABSF 

IF ) ST0RE2.LE.HSFHAXt J) ) GO TO 333 

ftSFMAX( J)=ST0PE2 

IRMFX(J)7JX 

CONTINUE 

CONTINUE 


OEIGIWAE PASS H 
OP POOR QDAHSXf 


CHAPTER S 5 5 

C 

C 

1XX = D 

DO U4Q JX=2,LH1 
IXX=IXX+N 


S 5 5 COMPLETION Of AN ITERATION 5555 


ixvnxx+i 

FFU=F(IXY,JF) 

FOX:AHAX1((FFU-PHI)*STOICK,TINY) 


164 



220 FH20=CFH20*IFJP-FFU» 

229 FC0?rCD2H20*FH20 

230 FIIXY,J0X»=F0X 

231 FN2=1.Q-FFU-FOX-FH20-FC02 

232 AHIX=AFU+FFU+AOX*F0X + fiH20t>FH20+AC0Z*FCO2*AN?*FN2 

233 BHIX=BFU#FFU*P0X*F0X+BH20*FH20tBC02*FC02*Brj2>>FN2 

234 440 F(IXYtJTE) = (-AHIXtSORTCASSIAHIX'C*2-ft.D*0HlX*tHFU»FFU“F(TXY,JHin >» 

235 1 /I2.0*EK1X) 

236 C EXIT SOUNDARYt ZERO GRAOIEMT CONDITION, 

237 lxy=(L-n>»N*l 

238 IXYU=IXY-N 

239 FtIXY,JH»=FCIXYU,JH> 

240 F{IXV,JF)=F«IXY»,JFJ 

241 FtlXY,JOX)=F(IXYU,JOX) 

242 F{1XY,JTE»=F(IXVU,JTE1 

243 C 

244 C 

245 CHAPTER 6&666&660 PRINT 66&66&66666 

246 C — — 

247 C 

2 hb C CHECK IF MAXIMUM CHANGES IN DEPENDENT VARIABLES .LE* 

249 C specified convergence LIHIT, EPSID. 

25D DO 516 J=1,NF 

251 IF (R$FHAX( J) ,GT. EPSID) GO TO 517 

252 516 CONTINUE 

253 N1DHAX=N1T 

264 GO To 519 

255 517 IFINIT.EO.I) GO TO 519 

256 IF«P0D{NIT,N1DPR) .NF-.D.ANO.NIT.NE.NIDHAX) GO TO 514 

257 B19 WRITF (6,5201 NIT 

258 520 FORMAT ( 1 HI , 20 ( IH* » ,6X , 1 7HITERATI0N NUMBER , 1 3 , 6X , 20 ( IH* 1 / IHD, 

259 1 9(?H-+1,6X,24HCNE-C1MENSI0NAL SOLUTION , 6X , 9 ( 2H+-) //8X , 3H IX, 5X, 

26D 2 1HX,7X,BHENTHALPY,5X,4HFUEL,6X,6H0XYGEN,6X,4HTEHP/) 

261 IXXr-N 

262 DO 50C JX=1,L 

263 IXX=IXX+N 

264 IXY=IXX+1 

265 5DD NRITE (6,5101 JX, X ( JX 1 , F ( IXY , JH 1 ,F ( TXY , JF ) ,F ( IXV , JOX ) ,F ( IXY , JTE ) 

266 51D FOR'^AT (BX, I3,1P5E11, 31 

267 HRITE(6,5in 

26S 511 F0Rf',AT(lHD,24(3H-+“lI 

269 514 WRITE (6,5151 NIT , ( J ,RSFM AX ( J ) , IRHFX ( J) , J=1 , NF J 

27D 515 F0RHAT( lHD,3X,4HN:T=,I3/(12X,7HRSFHAXt,I2,3H) :,1PE10,3, 

271 1 13H AT GRID NODE IX =,131) 

272 IF (MT.LT.NIDHAXI 60 TO 22D 

273 C 

274 C 

275 CHAPTER 777777777 COMPLETE 7777777777 

276 C 

277 C 

273 C ONE-DIMENSIONAL SOLUTION STORED AT AUL CROSS-STREAM GRID 

279 C NODES - STARTING VALUES FOR THE 2-D SOLUTION. 

260 IXX=0 

281 DO 6D5 JX=2,L 

292 IXX=IXX+N 

283 CLF(JX)=0.0 

254 IXYUlXX+l 



285 

286 

287 

288 

289 

290 

291 

292 
29 5 
299 

295 

296 


FTE=F(IXY1, JTE) 
FFU=F(IXYltJFI 
FJH=FiIXYl, JH) 
DO 60S 1Y=2,N 
i>;YrlV»IXX 
F(IXY,JTn = FTE 
F(IXY,JH)=FJH 
FtlXY,JPI=FjP 
b05 FtlXY,JFI=FFU 
IXXrO 
RETURN 
END 
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< 


( 

c 

r 

f 


f** 


1 

2 

3 

I* 

5 

6 
7 
fi 
9 

10 

11 

12 

13 

14 

15 

16 
17 
le 

19 

20 
21 
2? 

23 

24 

25 

26 
27 
29 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3P 

39 

40 

41 

42 

43 

44 

45 

46 

47 
45 
49 


SUBROUTINE OUTPUT 
INCLUDE COHAfLIST 
INCLUDE COMB, LIST 
INCLUDE COHC,LIST 
INCLUDE C0MD,LI5T 
C 

DIMENSION 0ATAt6),FLUlit3) , LAB 1 6 > ,LABK 1 14 ) , XLPLOT t26> , 

1 XTPLOni5),YLAXIS<161,YLPL0T(26,16»,yTPL0T(15,71,YAXISll7I, 

2 YAXIS2 m ,YAXlS3t7» tYAXISLMB) 

ENTRY DUTPl 


C 

C — 

CHAPTER A INITIAL PRINTOUT 

C- 

C 

C CROSS-STREAH OUTPUT CPROFILE) DATA. 


DATA (LAB(K) ,K=1,6»/*P»,*U VEL • , *TEPP * , *PUEL *, • OXYG* , • F •/ 

DATA KOUT/6/ 

DATA LABK1/*R'/ 

0ATA{LABK{K»,K=l,4»/» N NO . *,* N02 * N20 */ 

DATA ILABKtK) ,K=8,141 /• CO *, » C02 H •,* H2 *, 

1 • H20 0 *,* OH •/ 

DATA (LABK(K) ,K=5,7) /• N2 FUEL*,* 02*/ 

DATA LABKR/ * RHO »/ ,LABKH/ *ENTLPY ’ /,LABKV/ *VISC*/ 

C 

C TRANSVERSE I CROSS-STREAM ) PLOT DATA. 

DATA ITDIM,JTPIM/15,7/ 

C ASSIGN labels FOR PLOT AXES. 

DATA XTAXIS/*Rm*/ 

DATA (YAXISl (K) ,K=1,71/*U VEL *,* TEMP *,* FUEL *, *0X YG *, 3*0 .0/ 

DATA lYAXIS2(K),K = l,71/*e,0*,*^,OH»,*0,N2*,*N * , **,N0* , * 1 ,N02 ’ , 

1 *2,N20'/ 

DATA (YAXrS3tK) , K =1 , 7 1 / * 3 , CO* , • 4 ,C02 * , * 5 ,H * , *6,H2* , *7,H20*,2*a.0/ 
C 

C LONGITUDINAL (POWN-STREAM) PLOT DATA. 

DATA ILDIH, JLDlM/2b,lB/ 

C ASSIGN LABELS FOR PLOT AXES. 

DATA XLAXIS/'X * / 

DATA {YLAXIS(KI,K=1,1B)/*U(1)*,*T’,*DPDX',*GF{JFI*, 

1 *FUEL* , *0XYG*, *3,C0* ,'4,C02* ,’5,H*, *6,H2* , *7,H20* ,*8,0» , *9,0H* , 

2 *Q,N2*,*N »,**,N0*,'1,N02*,’2,N20’/ 

DATA BLANK/4H /,THTRD/4HM / 

NSE3rN5El+4 

N5E4=N5E3+1 

C 

PRESSl=PRESS 

EMUl = (VlSFU*Fua+VlSOX*OXB+VlSPR*tl.Q-FuB-0XBn*SQRTlTB» 
HEY=PSIE/(EMU1*0.5*REXO) 

C 


50 

51 

52 

53 

54 

55 

56 


WRITE (6,1087) 

1C87 FORMAT (IHIJ 

WRITE (6,1013) 

1013 FORMAT (llX,51UH*)/llX,lH*,49X,lH#/ilX, 1H*,49X, 1H*/11X,1H*,49X, 

1 IHA/llX, 51H* PREDICTION OF HYDRODYNAMICS AND */ 

262H * */ 

362H ♦ CHEMISTRY OF CONFINED METHANE-AIR */ 
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57 

58 

59 

&n 

61 

6? 

63 

S'* 

65 

6b 

67 

6S 

69 

70 

71 
7? 
73 
79 

75 

76 

77 

78 

79 

sr 

61 

a? 

B3 

B9 

85 

86 
67 
8? 
09 

90 

91 
9? 
9» 
99 
95 
9b 

97 

98 

99 
IOC! 
101 
102 
103 
109 

105 

106 
107 
106 

109 

110 
m 
112 
IM 


46ZH 

562H 

662H 

762H 


FLAMES WITH ATTENTION TO FORMATION 
OF NITROGEN OXIDES 


•/ 

*/ 


e llX,lHft,4 9X,lH'^/liX,lHi‘t‘t9X,lH*/UX,lH*,t»9X,lH*/nx,lH*,‘l9VtlH*/ 

9 llX,lH*,49X,lH*/llX,lH*,tt9X,lH«) 

WRITE (6,1015) 

1015 FORVATt IIX, IH*,11X, 39HTHE NA5C0 COMPUTER PROGRAM ♦/ 

162H * */ 

242M >*= PREPARED P T , 1 9X , IH*/1 1 X , IHX- ,49X, 

3 1H*/11X,1H*, 5X,45H CONCENTPATlON HEAT ANP MOMENTUM LTD. ♦/ 

4 llX,lH»,49y,lH’»/llX, lH*,23X,3hF0R,23X,lH«/llX,IH#,49X,lH*/ 

562H ♦ NATIONAL AERONAUTICS AND SPACE ADMINISTRATION »/ 

662H * */ 

762H V NASA LEWIS RESEARCH CENTER */ 

e nX rlH#,49X,lH*/llX,lH*,49X,lHA/- fV ,IH*,49X,1H#/11X,1H*,49X,1H*/ 

9 11X,1H#,15X,19HC0NTRACT N A &3-1 B940 , 1 5X , 1H&/ 1 1 X , IH*, 49X t IH* ) 

WRITE (6,10161 KASE 

1G16 FORMATt IIX, 1H#,19X, lOHAPRIL 1 977 , 2DX , 1 H*/ 

1 11 X,lHft,49X,lh*/llX, 1H#,49X,1H<‘/11X,1H*,49X,1H«/11X,1H*,49X,1H*/ 

? IIX ,1H*,49X,1H*711X,1H*,49X, 1H*/11X, lH«,49ilH-) ,1H*/ 

3 IIX ,lHt',49X,lH*711X,lH*,49X,lH*/ilv, 1H«<,49X,1H+/11X,1H#,49X,1H*/ 
445H * RESULTS FDR TEST C ASF , I 5 , 1 IX, lH-X/1 IX, 

5 1H*,49X,1K«/11X,1H*,1DX,3DHS.I. UNITS ARE USED THROUGHOUT , 9X , IH'X/ 

6 11 X,1H«,49X,1H*/11X ,1H«,49X,1H*/11X,1H»,49X,1H>»/11X,1H*,49X,1H#/ 

7 11X,S1(1H*>) 

WRITE (6,1020) 

1020 FOR»'AT (IHltlSHFLOw CONDITIONS/IX , 1 S UHrJ) 

IF (MODEL. EO, I) WRITE (6,1021) 

1021 format (lHu,4X,16HLAMlNAR, HOOELrl) 

IF (MODEL. E0.?> WRITE (6,1022) 

XLZ2 format (1H3 ,4X , 18HTURPULENT, HOOEL=2> 

IF (INERT, EO.l) WRITE (6,1023) 

1023 format (1H3,4X,?1HNCN-R£ACTINC', INERT = 17/) 

IF (INERT. EO, 2) WRITE (6,1024) 

1074 FORMAT (1H3,4X ,78HCHEMICALLY REACTING, INERT=2//) 
hRITE (6,lul9) 

1L15 format (lHa,8HGE0METRY/lX,8(lH=)) 

WRITE (6,1025) “01 V , REXO, X( L ) 

lu25 format (1HD,4X,29HRADTUS OF FUEL JET AT INLET ,1PEID.3//SX, 

1 29HRA01US OF DUCT AT INLET , 1“£ 10 , 3// 5X, 20HT0TAL LENGTH OF 

2 DUCT,9X,lPEia,37/) 

WRITE (6, 1626) (I , X 0 ( I ) , AREX ( I ) ,9 REX 1 1 > , CRE X ( 1 ) , 1 = 1 , 3 ) 

1026 FORMAT) 1KC,4X,21HDUCT HALL CONSTANTS -// IIX , IHI , 3X ,2HXCi,9X ,4HAREX, 
1 ex ,4H3REX,5X,4HCREX//( 10X,I2,2X,IP4E12.3) ) 

WRITE (6,1027) tiB,UC,TB,TC, PRESS, RE y^EORAT.PSIE 
1U27 format (//IFQ, 16HINLET CO NO I T IONS /IX , 16 ( 1H= ) / /5 X , 27HVEL0CITV OF 

1 FUEL STREAM, UP , 7X , IPE 10 . 3//5X , 26HVEL0CI TY OF ATP STREAM, UC,SX, 

2 IPF ID. 3//5X ,3DHTEMPEPATURE OF FUEL STREAM, TR , 4X , IPEIO , 3//5X , 

3 29FTEMPEPATUPE OF AlP STREAM, TC , 5X , IPE !□ . 7 //5X , 21HINLET PRESSURE 
4, PRESS, 13X,lPEia,3//5X,15HREYNOLDS NUMBER, I 9X, 1 PE1D.3//5X , 

5 34HOVERALL EOUTVALENCE RATIO, EORAT , 1PE1P.3//5X , 26HT0TAL MASS 

6 FLOW RATE, P SI E , 6 X , 1 PE 1 □ . 3 / / ) 

write (6,1028) tI,DWALL(l),EWALLtI),FWALL(l)tl=l,31 
1D28 FOR maT( IHD, 19H3PUN0ARY CCNDITIONS/IX , 19 ( IH=) //5X ,2fiHUALL TEMPERATU 
IRE CONSTANTS -//llX , IHI ,6X ,5HDWALL,7X ,6HEHALL,7X ,5 HFwALL// ( 1CX,I2, 
2 2X ,1P3E12.3) ) 
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114 

115 

116 

117 

118 
119 
12C 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 
14? 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 
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170 


WRITE (6,1029) (0H(I),1=1,N) 

1029 FOftMftT (//1HQ,4HGRI0/1X,4(1H=)//13H OMEGA GRID -/ ( 3X , 1P6E 1 1 . 3 ) ) 
WRITE (6,1080) (X(I),I=1,LJ 

1080 F0RMftTI//9H X GRID -/ ( 3X , 1P6E 1 1 . 3 ) » 

WRITE (6,1081) 

1081 FORHATt IHl ,53HPOLYNOM1AL COEFFICIEMTS FOR THERMODYNAMIC PROPERTIES 
U/61M 14 COEFFICIENTS t ( Z ( K , J , 1 ) , J=1 , 7) ,K= 1 ,2) FOR EACH SPECIES I. 
2//» 

DO 1088 I=1,NSE2 

1088 WRITE (6,1082) A SU3 ( 1 , 1 ) , ( t 2 ( K , J , I ) , , 7 > , K =1 , 2 ) 

1DB2 FORMAT ( IHO , A4/ ( 3X , 1P6E11 . 3 ) ) 

IF (KNTCS.EQ.D) GO TO 1085 
WRITE (6,1083) 

1083 FORMAT ( 1 H 1 , 18HRE AC TION HECHANISH/IX , 18 ( 1H=)J 
DO 1D61 

DO 1060 KK=1,6 
L(.= KK 

IF (KK.GT.3) LL=1(K-1 
DATA IKK»=BLANK 
IF (KK.EQ.3) GO TO 1060 
IF (KK.EQ.6) GO TO 1060 
IDLE J=I0(LL,J> 

IF tlDLLJ.EO.ni BO TO 1060 
data (RK)=ASUBITDLLJ,1) 

1G6D CONTINUE 

IF { 10(2, J) .EO.D) 60 TO 1062 
IF (10(4, J) .EO.DI GO TO 1062 
GO TO 1063 

1062 DATA(3)=THIRD 
DATA(6)=THIR0 

WRITE (6,1064) J, (DATACK I ,K=1 ,6 ) 

1D64 format tI3,ZH. ,A4,2H+ ,A4,2H+ ,A4,2H= ,A4,2H+ ,A4,2H+ ,A4, 

1 1P3E11.3) 

GO TO 1061 

1063 WRITE (6,1065) J , t D AT A ( K ) , K=1 , 6 > 

1665 FORMAT (13, 2H. ,A4,2H+ , A4 , 2X , A4 , 2H= ,A4,2H* , A4 , 2X , A4 , 1P3E1 1 .3 ) 

1661 CONTINUE 

WRITE (6,1084) tJ,BXlJ),TEN(J),TACT(J),BX2(J),TEN2(J),TACT2(J), 

1 J=1,JJI 

1UB4 FORMAT ( 1 HO , 2X , 24HR ATE CONSTANT P AR A H ETERS/ 5X , 37HR ATE CONSTAfJT = 

1 A*T*#3:*EXP(“TACT/T> ,1QX,1SH( T=TEMPERATURE) ///17X, 12HF0PWARD RATE, 

? 21X ,13H3ACKWAR0 RA TE//9X , 1 HA , lOX , IHB , 8X ,4HT ACT , 9X , IHA , ICX , IHB, 8X, 

3 4HTACT/(I3,lH.,lP6Ell,3n 

1D85 WRITE (6,1086) FHIN 

1086 FORMAT (1H{),7(10H #*** )/ • 

162H mote - the maximum CHANGES IN THE FIELD VALUES OF / 

262H U-VELOCITY, STAGNATION ENTHALPY, MIXTURE FRACTION, AND HASS / 
362H FRACTION'OF UNBURNT FUEL BETWEEN SUCCESSIVE ITERATIONS ARE / 

462H PRINTED AT EACH ITERATION, THESE VALUES ARE COMPUTED AS THE /' 
562H MAXIMUM OF ABS(CUPRENT VALUE - PREVIOUS VALUE ) /CURRENT VALUE./ 
6S0H THIS IS DONE IF THE CURRENT VALUE IS GREATER THAN, 1P£8 . 1 , IH./ 


762H THE FOLLOWING SYMBOLS DENOTE THE KAXIHUH CHANGES - / 
B62H RSUMAX FOR U-VELOCITY, / 
962H RSFKAX(J) FOR VARIABLE J, / 
^h2H FOR STAGNATION ENTHALPY, / 
162H Jr2 FOR MIXTURE FRACTION, F, / 
262H J=3 FOR HASS FRACTION OF UNBURNT FUEL. / 


169 



171 3 7tlCH !»**• 1/7C10H 

172 RETURN 

173 C 

17t, C — 

175 CHAPTER B — HEADIKGS — 

176 C 

177 C 

178 ENTRY 0UTP2 

179 ir J KOniNITFP.ISWPJ , NE. P. AND* ISTRT. NE. 1. AND. lX.EO.lSTRT I RETURN 

18D IF {MODJNlTERtNPRINT! .EO.D) GO TO 1000 

131 IF CNITER.EC.NITHAXl GO TO IDOQ 

le? GO TO 1D52 

181 IGCO IF IIX.EO.I) GO TO I1R9 

leq IF (HOD tNlTER.ISHPl .NE . 3, AND. IX .EO . 1 1 STRT*1 » . AND, ISTRT .NE. U 

leS 1 GO TO 11D9 

186 GO TO 1110 

187 1109 MTER1=NITER + 1 

160 DO 1C09 IY=1,N 

139 1389 EWU(1Y»-EHU1 

190 JXPLOT=C 

191 WRITE (6,11061 NITERl 

192 1106 F0RpATUH1,2D(IH9),6X,17MITERATI0N NUMBER , 1 3, 6X , 2C (1HK» / 

197 1 lHD,9(2H-+),bX,29HT*lO-OIMENSlONAL SOLUTI ON , 6X , 9 1 2H-+ » // ) 

19A C 

195 C — — 

196 CHAPTER C TESTS FOR PRINTOUT 

197 C 

198 C 

JVC 1110 UBflR=O.C 

?ur DO IID IY=2,NH1 

231 IXYrlv+lXX 

?J7 IIL’ U9AS=U3AR + B0M(IY)*U(IXY) 

2C3 UFLUX=PSIE«UBAR 

204 C 

2DE DO 115 J=1,NF 

2D6 FLUXtJlrO, 

207 GO 116 I¥=2,NMl 

206 116 FLUX (J)=FLUX[J»+BOM{IYl#FtIY*IXX,J) 

209 115 FLUX IJ»=PSIF<-FLUX(J1 

210 C 

211 PRESSD=PR(IXJ/PRESS1-1.0 

212 C 

213 IF (H0D(NITER,NPLOTL l.NE.D) GO TO 1105 

214 C — ASSIGN VALUES FOR DOWNSTREAM PLOT. 

215 IFIX(IX).GT,XD(3).0R.X(1X».LT,XD(2H GO TO 1105 

216 JXBL0T=JXPL0T+1 

217 IF( JXPLCT.EC.l ) ISLP=IX-1 

218 IF(«CD( JXPLOTtlPLOTL) .NE.O. AND. JXPLOT.NE.il GO TO IIQS 

21'’ IL=JXPLCT/IPL0TL + 1 

220 IF (IPLOTL.EQ.i J IL=IL-1 

221 XLPLOT< IL»:X(IX) 

222 IXY=ltIXX 

223 YLPLOTt IL,1 )=U(1XY) 

224 YLPLOT( IL,2)=D.0 

225 DO 1104 IY=2,NH1 

226 11P4 YLPLOT(IL,2)=AHAXl(yLOLOT(IL,2l,F(lY*lXX,JTEH 

227 YLPLOK 1L,3I=DPDX 
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?28 NYL=3 

229 IF (INERT. EQ*n BO TO 1105 

230 NYL=6 

231 YLPL0T|ILt«H-fLU3{lJFI 

232 YLPLOTdLtSJSO.O 

235 YLPL0T(IL,6J=D.a 

23*1 DO 1103 IY=2,NH1 

235 IXYrIYtlXX 

236 YLPL0T(TLt5)=&MiXllYLPL0TnLt5l tF(IXY,JF)» 

237 1103 YLPL0mL,6)=AHflXUYLPL0T(IL,6),FnXY,J0Xn 

238 IF tIEOUIl..EQ.Ut GO TO U05 

Z3P DO 1102 1S7.1B 

24P 1102 YLPLOT(ILtn=0.n 

2m DO 1107 IY=2,NH1 

242 YLPL0T(IL,7J=AHAX1(YLPL0T(IL»7J ,FS(lY,IOCOn 

243 YlPL0T(IL,Bl=AHAXltYLPL0T(IL,81 tFS(IYtlDC02)» 

244 YLPLCT(IL.9J“AHAXUYLPL0TtIL,9),FSlIYtlDHn 

245 YLPL0T(IL,1P)=A«AX1 (YLPLOTdL.lCU ,FS(lYtI0H2) J 

24 6 YLPLOTdUtll)=AHAXUYLPLOTdL ,1 II ,FSdYtI0H20J ) 

247 YLPL0TdL»12l=At*AXl I YLPLOT dU 1 1 2 I .F5 IIY t IDO )I 

248 YLPL0T(IL,13I=AHAXI ( YLPL0TdL,13) tFStlY.IDOHJ) 

249 1107 YLPLOTdU,14)~A»«AXltYLPLOTdL,14» ,FSdY,I0N2n 

250 IF IKNTCS.EO.O) GO TO 1105 

251 DO 1119 IVr2,NHl 

252 IXY=IY«-1XX 

25 3 YLPLOK IL , IF ) = A** AX 1 ( YLPLOT dL , IS } ,F d XY , JNI ) 

254 YLPL0TdL,16l=AHAXl t YLPLOT dL 1 16 ) ,FdXY,JNO)l 

255 YLPLCTdL,17)=AMAXl(YLPL0TdLtl7) iFdXYt JN02>) 

256 1119 YLPLOTdL,ia) = AHAXl (YLPLOTdLflSI ,FdXY,jN20n 


257 C 

254 C TESTS FOR PRINTOUT 

259 C IPRINT=1 GIVES SINGLE (STATION) VARIABLES. 

260 C IPRINT=2 ADOS THE ARRAY (PROFTLE) VARIABLES, ? 

261 C IPRINT=3 ADDS THE CROSS-STREAM PLOTS. 

262 C 


263 11D5 IPRINT=D 

264 IF(KOOdSTEP,NSTAT) .EQ.OI IPRINTrl 

265 IF (HCO(ISTEP,NPROF».EC.D.OR,ITEST.NE.n IPRINT=2 

266 IF ( (MQDdSTEP,MPLOTC).EO.O.AND,ISTEP.NE.O>.OR.lFIN.NE.l) IPR1NT=3 

267 C 

268 DO 1100 I=1,IPL0TH 

269 IF ClX.EQ.IPLOTdU IPRINT=3 

27-*’ 11D8 CONTINUE 

27* IF dP4INT.EQ.OI GO TO 1052 

272 C 

273 C 

274 CHAPTER 0 STATION VARIABLES — 

275 C 

276 C 

277 RRITE (6,1032) 

278 1D32 FORMAT (lH0,72(lH-n 

279 WRITE (6,1G30J X ( IX 1 , IX , OX , PRFSSD , ( J , J:=l . 3 ) ,UFLUX , (FLUX ( J ) , J=1 , NF) 

260 1D3D FORMAT ( IHO , 5H*>t'=«' , 2MX= , IPEIO. 3 , 2X , 3HI X= , 15 , 5X , 3HDX = , IPEIO . 3/6X , 

281 1 7hPRESSD=,1PE10.3/25X,3HJ = , 3 ( I6,5X J /7H UFLUX=,E1D.3,9H FLUX(J>=, 

282 2 (3F11.3)) 

283 C 

284 WRITE (6,1047) 0AX,DA2 
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28F 1047 format ISH 0A1=,1P£10.3,5H DA?=t£10.3> 

?b6 C 

?S7 C— — — — - — — 

?8P chapter E CROSS-STfEAH PROFILES — 

289 C — — 

zvn c 

291 IF UPRm.EOtl) GO TO 1050 

292 C 

293 WRITE {6,1099) (L AB (K ) , , KOUT ) 

294 DO 1091 IY=1,N 

295 1XV=IY+IXX 

296 1091 WRITE (6,1098) lY ,R { I Y ) , U ( I XY ) , F { IXY , JTE ) , F (IXY , JF 1 , F ( IXY, JOX ) , 

297 1 riIXY,JPl 

298 WRITE {6,1D99)LABK1,LABK(IDN2),LABKP,LA8KV,LABKH 

299 EHU ( 11=EHU{ 2) 

300 DO 1207 IY=1,N 

301 1207 WRIT Cl 6,1095 )1Y,R (I Y) ,FSny,lDN2) ,RHO ( I Y ) ,EMUH Y ) ,F ( lY+I XX , JH ) 

302 IF (INERT. EO.l) GO TO 1092 

303 IF (lEOUIL.EO.O) 60 TO 1092 

304 WRITE (6,1201) 

30''. 1201 format (1HD,5(2H-+) ,inX,29HCHEMICAL-EQUlLlBPIUH SOLUTION , IDX , 

306 1 5(2H+-)1 

307 WRITE (6,1099) L ABK 1 , ( LABX ( K ) ,K=N5E1 ,NSE3} 

3DB DO 1202 IY=1,N 

309 12C2 WRITE (6,1098) I Y , R ( I Y ) , ( FS ( I Y , K ) ,K=NSE1 ,NSE3 ) 

3ln WRITE (6,1C99I L ABK 1 , ( LABK ( K ) , K=NSE4 , NSE2) 

311 DO 1203 IY=1,N 

312 1203 WRITE (6,1098) T Y , R { I V ) , ( FS ( I Y,K ) ,K=NSE4 ,NSE2 ) 

3H IF (KNTCS.EO.O) GO TO 1D92 

314 IF (NITER. LT.MTERK) GO TO 1092 

31G WRITE (6,13011 

316 13C1 format nH0,S(2u-+) ,nX, 26 HCHEKICAL-KINETICS SOLUTION,! 1 X, 5 ( 2H+- ) ) 

317 WRITE (6,1099) L ABK 1 , ( L ABK ( K ) ,K = 1 ,NSK ) 

315 DO 1302 IY=1,N 

319 13 C 12 WRITE (6,1098) T Y ,R ( I Y ) , ( FS ( 1 Y, K ) ,Krl ,NSK ) 

32D K92 WRITE (6,1032) 

321 C 

322 IF tIPRlNT.ECJ.2) GO TO 1DS2 

323 C ASSIGN C=>OSS-STREAH PLOTS. 

324 IF (NITER. VF.MTHAXI GO TO 1050 

32? DO 1C73 IY=1,N 

326 IXY=IY+IXX 

327 XTPLOT(IY)=R(IY) 

328 YTPU3T(IY,1)=U( JXY) 

329 1073 YTPLC7(IY,2)=F(IXY,JTE> 

33n NYT=2 

331 IF (INERT, EO.IJ GO TO 1074 

332 NYT=4 

333 DO 1E75 IY=1,N 

334 IXY=IY+IXX 

335 YTPLCT(IY,3)=F(IXY,JF) 

336 1075 VTPLCT(IY,4)=F1TXY, JOX) 

337 WRITE (6,1096) X(IX1,IX 

338 CALL PLOTS ( XT^LOT, 1 TOIM , N, XTAX IS , YTPLOT , JTOIH, NYT , YAXISl ) 

339 IF (lEOUIL.EO.O) GO TO 1D50 

34D NYT=5 

341 DO 1C77 IY=1,N 
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342 XTPLOTlIYURnY) 

343 YTPLOTdYtljrFSCIYtlOCOI 

344 YTPLOT(IY,Z»=FS(IY»IDC02) 

345 YTPL0TtIY,3>=FS(IY,IDH» 

346 YTPLOTnY,4)-FSdY,IDH2> 

347 1077 YTPL0T(IY,5)=FSIIY,IDM20) 

346 WRITE Cb»lD96) X(IX)tI}( ' 

349 CALL PLOTS ( XTPLOT, ITOIH, K, XT AXIS , YTpLOT , JTDIH, NYT ,YAXIS3 » 

350 NYT=3 

351 DO 1076 IY=lfN 

352 XTPLOTUY) = RnY> 

353 YTPLOT(IY,U=FStIYtIDO> 

354 YTPLOT{IY,2J=FSCTY»IDOH) 

355 1076 YTPL0TnY,3)=FSCIY»IDN2) 

356 IF (KMTCS.ED.D) 60 TO 1078 

357 NYT=7 

358 DO 1079 IY=1,N 

359 IXY=IY+IXX 

360 YTPL0T(IV,4)=F11XY, JN» 

361 YTPLOTt lYt53=FlIXY,JNO) 

362 YTPL0T<IY,&)=F(IXY»JN02i 

363 1079 YTPL0T(IY,7»=F( JXY,JN20) 

36« 1078 WRITE (6tl096) XdXJfIX 

365 CALL PLOTS (XTPLOT t ITPIH , K, XTAXIS .YTPLOT , JTDlMi NYT f YAXIS2 J 

366 60 TO 1050 

367 C CR0SS-5TREAH PLOT OUTPUT. 

368 1074 WRITE <6.1096) X(IX)»IX 

369 1096 FORMAT (19H1CR0SS-STREAH PL0T..4H XU=,lPE10.3i4H lX=tI4) 

370 CALL PLOTS t XTPLOT , ITDIH i R i XT AXIS , YTPLOT ,JT0IH , NYT t Y AXIS!) 

371 C 

372 C 

37! chapter F LONGITUDINAL PLOTS AND RETURN 

374 C 

375 C 

376 lu5D IF dFIN.EO.n GO TO 1052 

377 IF ( JXPLOT.EO.Q) GO TO 1052 

37B IF (NITER. EO.NITMAX) GO TO 1053 

379 C 

380 C LONGITUDINAL PLOT OUTPUT, 

381 IF (NITER. EO.D) GO TO 1052 

3fl2 IF tHOp(NITER,NPLOTL) .NE.O) GO TO 1052 

383 1053 WRITE (6»1CS4) X(L),L 

364 1D54 FORf'AT (19H1LONG1TU01NAL PL0T,,4H XU=,1PE10. 3,4H IX=,I4! 

335 CALL PLOTS{XLPLOT,ILDIM,IL,XLAXIS,YLPLOT,JLDIHtNYL,YLAXTSJ 

386 IF (INERT. EO.IJ GO TO 1052 

367 IF tlEOUlL.EQ.O) GO TO 1052 

388 NYL=5 

389 DO J 055 KX=1,JXPL0T 

390 IF tKOD(KX,IPLOTL). NE.O. AND. KX.NE.l) GO TO 1055 

391 JX=KX/IPL0TL+1 

392 IF (IPLOTL.EQ.l) JX=JX-1 

393 XLPLOTt JX»rxiKX+ISLPI 

394 DO 1055 1=1, NYL 

395 YAXISLd)=YLAXI5d + 6l 

396 1056 VLPLOK JX,I)=yLPL0T(JX,I+6) 

397 1055 CONTINUE 

398 WRITE (6,1054) X{L),L 


Z99 

«D0 

4U1 

402 

403 

404 

405 

406 

407 
405 

409 

410 

411 

412 

413 

414 

415 

416 

417 
41? 

419 

420 

421 

422 


CALL PLOTS(XtPLOT,ILDTH*ILtXLflXlS,VLPLOT,JLDIH,NYL,YAXISL» 

NYLr7 

IF (KNTCS.ED.01 NYL=3 
DO 1C57 KX=1,JXPL0T 

IF (MDDCKX.IPLOTLl.NE.D.ANO.KX.NE.l) GO TO 1057 
JX=KX/IPLOTl+l 
IF ( IPLCTL.EQ.l) JX=JX-1 
XLPLOTf JJM=y (KX+ISLPl 
DO 1D58. 1 = 1, NYL 
YAXTSLm =YL AXIS (1+ 111 
lUBfl YLPLOTl JX,n=YLPLOT( JX,I + lll 
1L57 CONTIKJE 

tfe, 13541 X(L),U 

CALL PLDTS(XLPL0T,ILDIH,IL,XLAXIS,YLPLI)T,JL0IH,NYL,YAXISL» 

1052 IF tlX.NE.Ll RETURN 
WRITE t&tl332} 

WRITE (6,12051 Nl TER , PSUH AX , ( PSFH AX ( J 1 , J=1 , NFl 
«RITE (6,12C6) TRHUXfIRHUY, (IRHFX(J1,TRHFY(U),J=1,NF1 

1205 format (1H0,6HNITCR = ,T2 ,1X,23HRSUHAX,RSFHAX tOl, J=1,3 ,tIP4E10.3) 

1206 FORMAT (10X,23HAT GRID NODES, IX, lY =,8151 
RETURN 

C — - 

1D96 FORMATt 1X,I3,1P7E11.3> 

1099 F0RMAT(1H0,2X,1H1 ,7Alll 
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3 

M 

5 

e 

7 

a 

9 

ID 

11 

1 ? 

13 

lU 

IR 

16 

17 

lA 

19 

20 
21 
22 
23 
2U 

25 

26 

27 

28 
29 
3P 

31 

32 

33 
39 

35 

36 


39 

90 

91 

92 

93 
99 

95 

96 

97 
48 
99 
5P 

51 

52 

53 
59 

55 

56 


SUBROUTINE PHVS 
INCLUDE CONAfLIST 
INCLUDE COHO, LIST 
INCLUDE COHCtLIST 
INCLUDE COHDtLlST 
C 

C 

CHAPTER A — PHYSU PHVSU — — — PHYSU — — — — 

C 

ENTRY PHYSU 

C LAMINAR VISCOSITY 

C SOUARE-ROOT FORHULAt WITH WEIGHTINB ACCOROINB TO HASS FRACTION 

IXD=IX+1 

IF (K00EL.EQ.2} 60 TO ZOO 

DO 110 IY=1,N 

IXV=IY+IXX 

IXYD=IXY*N 

FOX=F(IXY|JOX> 

FJFrF<IXY,JF) 

FPR=1.0-FJF-F0X 

EHUUIIY)=CVISFU*FJFtVISOX*FOX+UISPR*FPRI*SORTtF<IXY,JTE) I 
FOX=FtlXYD» JOX) 

FJF=FtIXYD, JFl 
FPR=1.0-FJF-FOX 

EHUD(lY) = tVISFU*FJF+VISOX*FOX + VISPR’!‘FPR)*SORT{F(IXYD,JTE)» 

1X0 EHU«IY)=EHUD<IY> 

60 TO 2D1 
C 

C TURBULENT VISCOSITY. 

2GD IXY=IXX+N 
IXYD=IXY+N 
ALPHA=1,D 

IF IX{IXD).BT.XD(2n alpha = IDD. 

IF (IX.EO.l) 60 TO 1G7 

IF (MOD(NITER.ISUP) .NE.O.ANO.ISTRT.NE.l.AND.IX.EQ.lSTRTl 60 TO 1D7 
60 TO 109 

107 PS1E1Z=0.12#PSIE 

EHUNU=» VISFU=i‘FtIXYfJFl+VIS0X’4'FCIXY, JOX> +VISPR*U»D-FCIXY,JFI 
1 -Flixv.joxn J*SQRT(FaXY,JTE)) 

S0IX=S3RT (D,S*APUCT f IXl ) 

SHALF'J=D.15*(PSIE/'lEHUNU*SI)Ixn**(-0.125J 
AHUTU=ALPHA«PSIE12>;‘SKALFU/t 2.0^501X1 
APUTU1=&.6666667*AMUTU 
60 TO 108 
109 AMUTUzAMUTD 
AMUTUUAHUTOl 

iOB EMUCN) = tVISFU*F tlXYD, JF)tVISOX'i'F(lXYD,JOX)+VlSPR-«={l*0-F(IXYDtiJF) 

1 -F(IXYD,JOX»)J«SQRT(FtIXYD,JTE») 

S01X0=SCRT«C.5*A0UCniXDI ) 

SHALFD=G.15*(PSIE/(EHU(N «QIXD1>**1-0.125» 

AHUTD=ALPHA*PSIE12*SHA1 '/( 2.09S0IXDI 

AHUTD1=6.6666667»AHUTC 

DO 109 1Y=2,NH1 

VDR=l.D-RtIV)/RfN) 

IF ( YDR.LT.D.15) GO TO 106 
EHUUIIY)=AHUTU 
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57 

£8 

59 

to 

tl 

6Z 

b? 

69 

65 

66 
67 
6» 

69 

70 

71 

72 

73 
7<4 

75 

76 

77 

78 

79 
SO 
81 
82 
83 

85 

86 

87 

88 
89 
9D 

91 

92 

93 
9« 

95 

96 

97 
93 
99 

100 

lUl 

1D2 

1Q3 

109 

105 

136 

107 

lOP 

lu9 

iin 

111 

112 

113 


C 

C 


EHUDIIYl=A»UTD 
60 TO 104 

106 EHUUdY J:AHUTU1'!>YDR 

ehupiiy)=ahutdi*ydr ■ 

109 EHUny»::EHUDaV) 

201 DO 2D3 IY=2,NH2 

2D3 EHIJ(1Y»=0.5>K(EHU«1V |tEHU*IY+l)» 


ST0PF=1 .0/lXDIF(IXD)*0X) 

STDP£1=1.C/IXDIF(IX )#DX) 

SUK/!=DtO 

SUHl>=O.D 

DO no IY=2,NH1 

1XY=IY*IXX 




aOHENTUM SOURCE 


IXYDD-IXY+N+N 

EMuoav )=ehudiiv)#area(iy>*store 

EMUUtlY )=EHUUtIY)*AREflU(IY)*STOREl 

SUHA=SUMA+E»*UDtlYI 

SU99=S‘JMS+EMUIjnY) 

SI( 1 Y)=-DP0X«AREACIYI+EHU0(IY)^U(IXYD0) +EHUUtIY»*U(IXYI 
21D 51PI IY)=-(EMUDtIYI+EHUUlTYJ ) 

RETURN 


C 

c 

CHAPTER 
C 


PHYSP PHYSF — PHYSF 


ENTRY PHYSF 

IP (NErfPRU) .E0,1) GO TO 319 
PRC 0N=1.D/PPLT(J* MODEL) 

PRRA7=PRC09 

IF IJ.NE.l) PRR/iT=PRLT< J-1,M0DEL)>CPBC0M 
DO 313 1Y=2,NM2 
E^'UUCly ):EHUUIIY)*PRRAT 
EKUD <IY ) = EMUD(IY)*PRRAT 
313 DIP(IY)=DIFU(IY)*PRCON 

EMULMN’^l)=EPUUtNMl)*PRHAT 
EMUD INMl)=EMUD(Nm»*pPRAT 
SUMA=SUMA*PPRAT 
SUMB^SUKBfrPRRAT 

C KINETIC KEATING SOURCE 

319 IF (j.NE.JKl GO TO 3000 

IF ( NEkJPRU) ,E0.1 ) GO TO 303 
PPC0M = C.5^(PRLT( J,H0DEL)-1.0> 

IXXD=IXX+N 
DUS0P=0.0 
USSP-Ut 2+IXX0)#*2 
DO 322 IY=2.NM2 
US0 = U(IXXD + IY + 1 

DU5C=<3IFU(IV)-DrFCIY) »*«USQ-USOP) 

51 ( IY)=C. 5*(DUS0-DUSQP» 

DUSCPrOUSO \ 

322 USQF=USO 

SHNP1)=-DUS0 
DO 323 IY'2tNMl 
IXY=IY*IXX 
1XYC=IXY+N 
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no 

115 

lib 

117 

US 

n*> 

izn 

121 

122 

123 

124 

125 

126 
127 
126 
129 
13n 

131 

132 

133 

134 

135 

136 

137 

138 
1^9 
14Q 

141 

142 

143 

144 

145 

146 

147 

148 

149 
15C1 

151 

152 

153 

154 

155 

156 

157 

158 

159 
16C 
161 


IXVDD=IXVD+N 

USQ=U(IXY)««2 

UDS0=UtIXY0)*>a>2 

UD0S0:UtIXYDD»**2 

5niY( = SIUYMPPCONl*(EKUOllYI«(UOOSQ-UDSO)-EKUtJtlY)<»fUDSD>U50M 
I ♦EHUDdYlfFCIXYnOi J>*EHUU(lY»*FaXYf J) 

323 SIPnYI=-EHUD(IV)-EHUUIIY) 

GO TO 5000 

303 DO 324 IY=2,NHl 
IXY=IY*1XX 

Sn iyi=EHUOtlY>*F (lXY+N+N|J>*EHUUCIYI*F(IXYfJ> 

324 SIP(IYl=-EHUD(lYl-EHUUtIY) 

60 TO 50DQ 

C 

C PUEL SOURCE 

3L0D IF (J.ME.JFl 60 TO 4000 
T1=PREEXP*PBESS*PRESS 
60 TO 342 
ENTRY SORFU 
CALL TEKP 

342 DO 344 IY=2,NHl 
IXY=IXX+IY 
IXYD=IXYtN 
FJF=:FtIXVD,JF) 

PHI=(F( IXYD,JP)-FSTOICl/FSTOIH 
FUBRNT = A«AXICO.OfPHl ) 

FUEX=FJF-FUBRNT 
IF (FUEX.6T.0.D) GO TO 346 
SIP{IY)=-8IG 
GO TO 345 

346 F0X=AFAX1( (FJF-PHI)#STOrCH,TINV» 

SIP t lY) =-Tl*EXPt-ARRCON/F(IXYD,jTE) J*AREA( IV)*FOX*FJF/FUEX 
345 SItl V) = -SlP(IY)=i'FLlERNT 

SI(TYJ=SI (IY)+EMUD< IY)#FtIXYD + N»JF)+EKUUHY)#F(IXY»JF) 

344 SIPl IY)=SIPtIY)-(EMUU(IY)+EHUD{IY>) 

GO TO 5C0D 
C 

C jp <F) 

4000 IF tJ.NEtJP) GO TO 60DQ 
DO 360 1Y=2,NK1 
IXY=IY+IXX 

Sit 1Y)=EHUD(IY)*F(IXY+N+Nf J)+EHUU(IY)#FC1XY|J1 
360 SIPtIY)=-(ERUD(IYl + EMUUtlYn 
GO TO 6D0D 

5tno alf(ixOtJ)=suha 
BLFtlXD,J)=SUHB 
6000 RETURN 
END 
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5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 
19 
2P 
21 
22 
2T 

24 

2 *= 

26 

27 

2 ° 

29 

30 

31 
3? 

33 

34 

35 

36 

37 

38 

39 
4G 
41 

4 2 

43 

44 

45 

46 

47 
4S 

49 

50 

51 

52 

53 

54 

5 5 
56 


SU3P0UTINE: CHEH 

COMMON /COZFF/ A(IO>,n(10)|CllO>fD»10)|PO«C101fOHOIF(lO) 
include COHfi,LIST 
INCLUDE COHRtLIST 
INCLUDE COKCtLIST 
INCLUDE COHDtLIST 
C 

c 

CHAPTER A - ♦- + - + - + - + -+ POLY + 

C 

entry poly 
PP=AMAX1(PRES$,PHIN» 

PP=AMINllPPfPHAX> 

PP=PP*1 ,OE“OS 
IP = PP 
IP1=IP+1 
FACTR2 =PP-IP 
FACTRl =1.Q-FACTR2 

AHlriHU,IP)*FACTRl + AH ( 1 f I PI J *FACTP2 
AH2 = AHt 2,IP KFACTRl + AH ( 2 , 1 PI ) PFACTR2 
AH3-AH(3,IPIPFACTR1 + AH (3, 1 PI }4<FACTR2 
AH4 = AH(4,IP IPFACTRI + AH ( 4 , I Pi 1 *FA CTP2 
AC1=AC(1,IP)*FACTR1 + Act 1,1 PI UFACTP2 
AC2 = AC(2,IP>«rACTRl + AC ( 2 ,IP1) '»FACTP2 
AC3 = ACt 3,IP)PFACTR1 +ACt 3,IP1 >i»FACTP2 
AC4 =ACt 4, IP 1 OFACTRI + AC (4, 1 PI >*FACTR2 
ASMl=AStI ,IPJfFACT91 +A S t 1 , IP 1 1 *F ACTR2 
ASH;zAS(2,rP)#FACTRl +A S I 2 , IP 1 > *F ACTR2 ' 

AS‘<3=AS13,1P)*FACTRI +AS13,IP11*FACTR2 
ASM4=A5 (4,IP)#FACTR1 +AS t 4 , IP 1 ) #F ACTR2 
RETURN 
C 



CHAPTER e - + TEHP + - + - + - + - + - 

C 

C 

ENTRY TEHP 

SP1=1.D+ST0ICH 

IHCPS=2 

N52=I002 

NSl=IDN2 

IFCKNTCS.EC.D) GO TO 101 
NSlrl 

DO 1C3 IY=2,NHi 
IXYn=IXX+N+IY 
DC 103 1=1, N5K 
KKZlSPECtl) 

103 FS( I Y,1 >=FtIXVD,KK» 

101 DO 100 IY=2,NH1 
IXYr=IXX+N+IY 
FF0=F(IXYD, JF) 

FJP=F(IXYD, JP) 

FFU=AMIN1 (FFU.FJPl 

F(1XYD,JF)=FFU 

PHI= tFJP-FSTOICJ/FSTOTH 
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S7 

SB 

59 

60 
61 
6? 
65 
69 

65 

66 
67 
6P 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7fi 

79 

80 


F02=AHftXl( lFFU-PHI>*STOICHtTINY> 
FPR=AHAXl(»FJP-FFU)*SPltTINV> 

F5( IY,1PR»=FPR 
FIIXYO, J0XJ=FC2 
FSC IY,ID02»=F02 
FSC1Y,IDF1=FFU 
FSIIY,IDN2J=FPR 
F,N2 = 1.0 

DO 102 I=NS1|NS2 
S2CniFS<lVtl> 
i02 FN2-FN2-S2tI) 

FStIY,I0W2)=FN2 

S2nDN2)=FN2 

TK=F(IXVO*JTE) 

ENTH = «F(IX¥D»JHJ-D.5*U(lXYD)*'«'2»/eASC0N 
00 110 1T=1,NTMAX 

HPPr (AHI+CAH2+(AH3 + AH4»TK)9TK)*TK)>*FPR 

CPR-= (AC1+ C AC2+f AC3+AC4 + TK 1 *TK > <>TK 1 *FPR 

CALL HCPS 

CPMIX=CPSUH+CPR 

HHIX=HSUH*TK+MPP 

F ACTOR=l,D+ tENTH-HHIX )/ ITK*CPHIXJ 

TK=TK#F ACTOR 

TK=AHINHTK,THAXI 


SI TK = APAXUTK,TPIN) 

82 DTEMP=tFACTOR-l,D)/FACTOR 

S3 IF t ABSIDTEMP) .LE.EPST) GO TO 100 

84 no CONTINUE 

85 IT=IT-1 

86 HRITEt6,9415) IX , 1 ¥ t IT , TK » DTEHP 

67 9415 FORMAT ( IHO , 1 0 1 IH- > , 2X y 3 1 HP OOR CONVERGENCE OF TEMPER ATURE/13X ♦ 

86 1 THAT IX' =,I3,1C!H, ANP lY =, I 3/ 1 3X , 22HN UM0EP OF ITERATIONS =»I3/ 

89 2 13X ,13HTEHPERATUPE = , 1 PE 15 .6/1 3X » 7H0TE HP = , IPE 1 5 .6/ 13X , 

9P 3 25H*««V SUBROUTINE TEMP **•*> 

91 100 FtIXYD, JTEI=TK 

92 RETURN 

93 C 

94 C 

95 CHAPTER C - + - + -♦- + - + -+ OENS + - + - 

96 C 


97 

C 


98 


ENTRY OENS 

99 


PD6SCN=PR£SS/GASC0N 

100 


DO 200 lYrZ.NHl 

101 


TK=F (IXX+IY+N, JTE > 

137 


SM= t AEMl + iASH2+C ASH3 + ASM4*TKJ9TK>#TK)*FS(1Y,IPR> 

103 


DO 217 I=NS!7NS2 

104 

217 

SM=SM+FStIY,I)/SHW(I) 

105 

20C 

RHO t lY) =PDGSCN/ t TK*S«) 

106 


RH0tl):RH0(2» 

107 


RHO ( N1 = RH0(NM1 1 

108 


IF (IX,NE.(ISTRT-in 60 TO 218 

109 


DO 719 IY=l,N 

no 

219 

RH02(IY)=RH0(IY> 

111 

218 

1XY=IXX+N+1 

117 


IXY1=IXY+1 

113 


FtlXYtJFUFdXVl.JFl 
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11« 

115 

116 
117 
11« 
119 
12D 
IZl 
12 ? 
127 
12*1 

125 

126 
127 
12P 
12« 
13P 

131 

132 

133 
13*t 

135 

136 

137 

138 

139 

mr 

14 1 
14? 

143 

144 

145 

146 

147 
14S 
149 
15C 

151 

152 

153 

154 

155 
155 
157 
I5P 
159 
16C 
Ibl 
15? 
153 
!b4 
155 
lb& 
157 
1 58 
159 

nr. 


F{I}!Y,J0)()=FCIXV1,J0X» 

FtIXY,JTE)=F(rXYl,JTE» 

IXY=IXX*N+N 

IXYl=IXY-i 

FaXY,JFI=F(IXYltJF) 

FIIXY,J0X)=F(IXY1 ,JOXJ 
DO ?27 I=I0N2tlDO2 

FSt 1 tlUFStZtl) ^ 

227 FSU.I J=FSfNHl,I) 

TK = F «IXV,JTE1 

HPR= (AHl* tAHZ+lAHS + AHR^'TKUTKl't'TKl + FS tNHl,IPRl 

1HCPS=1 » 

DO 220 I=NSltNS2 
220 S2(I ) = FSINM1|II 
CALL HCPS 

FdXY, JH1 = (HSUH*TK+HPRJ*GASC0N 
RETURN 
C 

c 

CHAPTER D - + -♦-♦■- + - + -+ EQUTL + - + - + - + - + - + - + - 
C 

c 

ENTRY EOUIL 
H0IFF=1 .0/ (MMAX-HHINl 
DO 30 Il=NSEl,N5E2 
LL=II-NSE1+1 
DO 3C KK=1,4 

AFS(KK,LLtl>=ASlCKK , LL , IP ) "i-FACTR 1 +ASH KK ,LL , IP1> #FACTR2 
3D AFStKK,LL,2) = BSl tKKiLLflPloFACTRl +PSUKK,LL iIPl)*FACTR2 
DO 3DD IY=2,NH1 
SUM=n.D 

FPR=FS( lYtlPRl 
TK=F (IXX+N*1Y,JTE ) 

hPR=tAHl+tAH2+( AH3+AH4*TK)*TK)*TK1*GASC0N 
C 09TAIN E0UILI8RIUM COMPOSITIONS FROM POLYNOMIAL FITS. 

C i‘ 

hPR=AMAXl(HPR»HMIN) 
hPR=AMINl (HPR,H“AX» 

MH=1 

IF I HPR .GT.HDIV ) HH=2 
HPRr (HPR-HHTN>*H0IFF 
DO 3CD02 II = N5F.1,NSE2 
LL=TI-NSE1+1 

FSI irftFSf 1,LL,HM)+I AFS(2,LL*HM) ♦ ( AFS ( 3, LL,HH ) +AFS { 4 i LL »MH 1 *HPR) 

I *hfr)*hpr 

FStlY.II) =FPR*EXPtFSIU 
3D|,02 SUM = SU«<-FSlIYfIll 

SUM=SUM+FS( TYtIDF)+FS(IY,ID02) 

IF I INTCS.EO.O) FS(IYiIDN21=AMINl(1.0-SUHtl.D-0XC) 

3C0 CONTINUE 

DO 397 I=IDN2tNSE2 
FS( 1 ,II=FS(2,I) 

397 F5d:,I) ^FSINHI,!) 

RETURN 

C 

c 

CHAPTER E - + - + - + -t- + -+ KINE + - + 
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171 

17? 

173 

17M 

175 

176 

177 
170 
IV3 
180 
181 
18? 

183 

184 

185 

186 
JB7 
188 
189 
19H 

191 

192 

193 

194 

195 

196 

197 

198 

199 
?on 
201 
?C2 
203 
PD4 
?05 
206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 


C 

C 

ENTRY «INE 

lXD=rlX*t 

PA=PfiES5 

IF (NITER.NE.NITERK.OR.IX.EQ.U GO TO R83 

IXN=IX*h 

IX*tU=IXN-N 

IXNO=IXN+N ‘ 

DO 482 I=ltNSK 
KK=ISPECm 
DO 402 lY=ltN 
FU=FtlY+IXNU,KKI 
FCIY4^IXN,KK>=FU 

482 FtIY+IXMOtKK)=FU 

483 debug:. FALSE. 

IF (IDEBUG.E0.2) DEPUG=.TRUE. 

IF (NEHPRCJN) .EO.ll 60 TO 471 
PRC0N=1 .0/PRLH JN»HODEL) 

PRRAT=PRLT( JN-1,H0DFU*PRC0N 
DO 470 IY=2,NH2 
EMDU(lY)=EHUUtIY)*PRRflT 
EHUn{lY>:EHUO(lY)+PRRAT 
AtlYlrDIFUdn-i^PRCON 

470 B«IY+1)=A(IYJ 
EHUU(NH1I=EHUU(NH1)*PRRAT 
EHUn«N'<ll=EMUD«NMl)>^PRRAT 

471 DO 487 IY=2,NHl 
C 

C 

C(IY) : POHCIYJ + EMUU(IY) 

0(IY» = EWUD(IY) 

C 

c 

EMV=A«IY1 *3 tlYj+C(IY)+DtIY) 

DO 486 I=IDN2,NSEZ 
486 S?(I):FS(IY,I»/5HHCI) 

IXYD=IXX+N+IY 
TK = F (IXVD, JTE) 

DO 488 I^ltNSK 
KK:ISP£C(II 

Sim=( AtIY)=fF(TXYD + l,KK)+B(IY>’XF(IXYD-l,KK)+CeiY)#FlIXYD-N,KK) 

1 +D ( lY » *F (IXYD + N,KK ) I / i EH Yi(<SH H ( I ) ) 

4BS S2m=F(IXYD,KK)/SHHm . 

PWR=EQRAT-D.IO 
EHV = EMV/(AREA(IY) )#=«PHR 
IF ( TK,LE,55D.U) GO TO 500 
CALL SPECE 

IF (CONVGJ GO TO 510 
IX1=IX+1 

URITE 16,931) IXl.lY 

981 FORHAT ( 1 EX , 68HCHEHI C AL KINETICS SOLUTION FAILED. ..AVG INLET PROPE 
IKTIFS RETURNED /10X,6HAT IX = ,I3 ,9H,AND, IY = ,13/> 

50D DO 5C2 1=1, NSK 
502 S2(I)=SHI) 

51D 508=0.0 

DO 489 I=1,NSE2 


1B1 


489 SUH = SUM+S?tI)+St<HII) 

229 DO 990 I = l,h(SK 

250 hK=ISPECiI) 

231 FStlY,! ) = S2m*SHWnj/SUH 

232 *i90 F(I*YD,K«) = FS(IV,I) 

J33 C LU^'P ALl EPBOR? INTO N2-HASS FRACTTOH 

239 SUM=0.3 

235 00 993 1=1,NSF2 

236 993 SUK=SUM+F5«IViI) 

237 FS( 1Y,IDN21=AHIN111,0+FS(IY,ION2)-SUH,1,D-OXC) 

238 987 CONTINUE 

239 IXYN=IXX+N+N 

290 1XYN1=IXYN-1 

291 IXY1=IXX+Mtl 

292 IXY2=IXY1+1 

293 DO 999 I-1,NSK 

299 FSn*I}=FS(2tI) 

299 FSIN,I) :FStNHl|I> 

296 KK=ISPECm 

297 F(IXYN,KK)=F(IXYN1^KK) 

298 9IJ9 F{IXYl,KK)=F(IXy2tKKl 

299 FSfN,IDK2»=FStN^l,IDN2) 

250 FSt 1 ,IDN2)=FS(2,IDN2) 

251 RETURN 

252 END 


'8 

r 


1B2 


1 

'? 

3 

<4 


7 

8 
9 

$ 10 
11 
12 
13 
Ifl 

15 

16 

17 

18 
19 

2r 

21 

22 

23 

2>t 

25 
28 
27 

26 
2<J 
3n 
3 ! 

32 

33 

' 

35 

36 

37 

38 

39 
<10 
<il 
<•2 
» t 3 
9<t 
<15 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SUBROUTINE COHP 

C0<1MON /COEFF/ A 1 10 ) tO 1 10) , C 1 10 ) , 0 ( 1 D ) t POH ( 10) t OKOIF ( 101 
INCLUDE CDHAjLIST 
INCLUDE COHP»LIST 
INCLUDE COHO, LIST 
C 

CHAPTER A-+-+- + - + - + -. + - INIT « + 

C 

DIMENSION FDUHdODI 
ENTPV INIT 

C INITIAL values AND DEFAULT VALUES 

NM1=N-1 

NH2rN-2 

NH3=N-3 

LM1=L-1 

LH2=L-2 

IX=1 

IXX=0 

ISTEPrO 

IFIN=1 

DX=TINY 

R(1)=0»0 

BPE=1. 

DP0X=0. 

XD=D.O 
XU::D.D 
DA2=D.O 
DO 12 iy=l,N 
DO 11 1=1, NSK 
KK = ISPECm 
F JIY.KK J = D.n 
U FSCIY, 11=0.0 

DO 14 I=NSE1,NS£2 
14 F5(IY,I)=D.D 
12 CONTINUE 
RETURN 

CHAPTER B - + - + - + - + - + - GRIDX - 

C 

ENTRY SRIDX 
XS(2)=3.S*(X(3)+X(2) » 

XS(LH1)=X(L)-0.5A(X(LH1J*X(LH2) J 
X0IFa»=Xt2)-X(‘x) 

X0lF(2)=Xt3)-Xt2) 

XD1F(LH1J=X(L)-X{LH1) 

DO ?C1 JX=3,LH2 

xs( JX)=o.5‘*(xi jx+i)-x(jx-in 

201 XOIF tJX J=Xt JX+i )-Xt JXJ 
XS< U=XS(2) 

XS(L)=XSCLH1) 

return 

c 

CHAPTER C - + - + -♦- + - + -+ GRIDOH +- + - + -+ - + -«■- + - 
C 

ENTRY SRIDOW 
0HI=0H<2) 

OHE=l.-OHtNMll 
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57 

59 

&9 

60 
61 
62 

63 

64 

65 

66 
67 

65 
64 
70. 

71 

72 

73 

74 

75 

76 

77 
7P 
79 

er 

SI 

8? 

83 

84 

85 

86 
67 

66 

89 

90 

91 

9-j 

93 

94 

95 
9b 
97 
9S 
99 

luO 

IQl 

1C2 

1D3 

104 

ID? 

1D6 

1G7 

109 

lu9 

lie 

111 

112 

113 


BOH (2) = .5 9(OK(2I«^OH(3) > 

OHlNimrO. 

0H1NT(2I=B0H(2» 

DO 202 1=3, NHZ 

OHINTCl ) = .5*(0Mm*0H(I + l>) 

BOM( IJ = OHINTCI)-OHINT(I»1 ) 

202 OMoiF(ij=onm-OM(i-i) 

BOH(KH1) = U-OHINT<NH2> 

OMJMTIVHI )=1. 

OHDIF{VHI):OH(NH1)-OH(NH2) 

RETURN 

C 

chapter D dISTAN + - ♦ 


OP S' 18 

POOR QUAU!^' 



ENTRY DISTAN 

IF {HODlNITERflSWPl .NE.D.AND.ISTRT.NE.l. AND.I)(.EQ.ISTRT)BPE=BPSAVE 

RU(2 )=RH0(2>*U12+IXX1 

RUll)=RU{2) 

RU(N)=0,0 

RCCI=1.0/RU{2) 

R1 = PSIE'^RECI 

AREA <2>:(BOM(2'.*O.S+OHI)*RI 

RI=RI«OHI 

RtBl^saRTlE.D-JPI) 

R1PP=RX 

hPEI-D.5*PSIE 

DO 231 1¥=3,NH1 

RUf I YURHO ( IY»JfU(IY + IXXl 

RECIHl=RECI 

RECl=1.0/RUtlY) 

AREA aY) = PSIE’!'BCHUY)*RECI 

RTP = RIPP + HPEI’>0V0IF 1 1 Y ) * ( RECIH 1 +RECT1 

RaY)=S0RT(RIP*2.0> 


231 RIPP=RIP 

RE = PSIi*OH- / (fiPFiftRU (NHl 1 J 


R(N)=SaRT( (PIP+RE}«2,0) 
AREA {NHl)=j.5*APEACNKl)+RE 
RI=SGRT (RI*2.D) 

RE = P <N)-R(NM1) 


IF(NITER,NE,0) GO TO 232 
DO 233 IY=2,NH1 
233 AREAU{IY)=AREA(IY> 

232 IFt TTEST.EO.l) RETURN 

*,RITF{5,22il (RUIIY ) , IY = 1 ,N) 

226 FOR^'ftngh C04P DISTAN TESTS, ,8H RU ( I Y » =/ ( 3X , 1P5E1 1 . 3 1 > 
fcRlTE(6,2Z6) IR(IY) ,1Y=1,N) 

236 FOR^'AKSH P { I Y ) = / ( 3X , 1 PSE 1 1 . 3)) 

WRITC(b,242J [AREA(TY),IY=2,NH11 
242 FORHATdlH AREdlY 1=/13X,1P5E11.3I 1 
RETURN 


C 

CHAPTFR E -+-+-+-+-+-+ SOLVE +-+-+-+-+-+-+- 
C 


ENTRY SOLVE 

C PRELIMINARIES 

IXD = IX<-1 
IXDD = lX<-2 
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114 

115 

116 
117 
IIS 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
16Q 
16 ! 
162 

163 

164 

165 

166 

167 

168 

169 

170 


IF (IX.50.11 RSUKAX=0»0 

IF tHOOINITFRTlSWP) .NE*O.A»10.I5TRT.N£.1»ANO.IX.EQ.ISTRT) 

1 RSUMAX=D.O 
CALL PHYSU 
P=PS1E/QX 
DO 411 Ir2,NMl 
4U POMtI)=P#BOHCn 

C COEFFICIENTS FOR U 

DO 413 1=2, NH2 

oiFun I =EMum*o,5>MR(i+n*Rm i/iRt i*iJ“R(in 
Am=DiFum 
413 6(I*ll=A(n 
J = Q 

CALL WALL (BPE,TE) 

B(2>=Q.O 

A(MP1»=TE 

C C*S AND 0»S 

DO 418 IY=2,NM1 

CtlY >=U (IY+IXX)»POH ( IY>*Slf IY> 

41B DtlY J=fltlY>+B(IY>+POH(lYI-SIPIIY> 

IF (ITEST.EC.l) GO TO 404 
WRITE (6,405! ( A ( I ) , I =2 ,NH1 ) 

WRITE(6,4D6) ( B ( I > , I =2 , NHl ) 

WRITE(6,407> .(C(II,I=?,NM1) 

WRITE(6,4DB) (D(U,I=2»NM1) 

405 FORMATtlTH COMP SOLVE TESTS/6H A (Z ) / 1 3X, IP6E1 1 * 3 ) I 

406 F0RHAT(6H P (I) /■( 3X , 1P6E11. 3U 

407 F0RMAT(6H C ( I) / ( 3X , 1P6E 11 . 3» ) 

40& F0SMAT(6H D(I)/(3X,lP6E11.3n 

C SOLVE FOR DOWNSTREAM U 'S 

404 C(2 )=C(2I/D(2» 

0(2>=A(21/D12) 

00 4?1 lrs,NHl 
T=Dtl)-B(n»D(l-l) 

D(II=A(I)/T 

421 c(n=<3(i)*c(i-n+c(i>i/T 
IXXP1=1XX4-N 
DO 42C IDASH=1,NH2 
I=N-1DASH 
IXY=I+IXXP1 

420 U(IVY)=D(I)*U(IXY + 1 l+Cm 

415 FORMAT (7H BL ( IX ) / ( 3X , 1 P6E11 . 3) ) 

416 FORMAT (7H CL U X ) / ( 3X , 1 P6E 1 1 . 3 ») 

417 FORMAT (7H DL ( I X ) / ( 3X , I P6E 1 1 . 3) ) 


U(1+IXXP1)=U(2+1XXP1» 

TAUE=TE*U{NMl+ixXPl )/RtN) 

IF tITEST.EO.l) GO TO 442 

WRITE (6,443) (IMI Y+IXXPl ) , IY=l ,N) 

443 F0RMATU7H COMP SOLVE TESTS/6H U ( 1 ) / ( 3X , 1P6E1 1 • 3 > ) 

C 

442 IF (IX.EQ.dSTRT-l » ) BPSAVE=BRE 

C F SECTION 

IF (NF.EO.O) RETURN 
IF (INERT. EO. 2) CALL POLY 
DO 480 J=1,NF 

IF (IX.EO.l) RSFHAX(J)=0.0 



171 

172 
175 
17*1 

175 

176 

177 
175 
179 

lan 

161 

162 

163 

184 

165 

186 

167 

186 

169 

19D 

191 

192 

193 

194 

195 

196 

197 
194 

199 

200 
201 
202 
203 
2D4 

205 

206 
207 
2 D 6 

209 

210 
211 
212 

213 

214 

215 

216 
217 
216 

219 

220 
221 
227 
223 
22(1 

225 

226 
227 


IF f M 0 D«NITFf?,lSWP» ISTRT .fJE ,1 . AND . IK . FO. IS TRT » 

1 RSFHAXUlrO.O 

IFCTNERT.Ea.l.ANO.J.EO.JFJ GO 70 4410 


C SUBROUTINE PHVS ICS 

CALL PHYSF 

c fl»S AND B*S 


IF tNE«iPi?(J)tEQ.l> GO TO 479 
DO 484 lY:ZtNM2 
AnY)=31F|IV) 

464 BCIY+1»=A(IY1 
B ( 2 ) =0 • D 

479 TEFzn.O 
F0IFE=Q.D 

IFt J.EQ.JHICALL WALLCFOIFE^TEFl 
A(NMU = TEF 
□0 «77 IY=2,NHl 
477 RES1DU11V)=F(IXX+IV+N,U) 

C CIS AND O'S 

MT = 0 

483 NIT=NIT+1 

IFlMT.GT.i) CALL SORFU 
DO uqs IV;:2,NK1 

D(IY)=AtIY»*B(lYl+POKtIYJ-SIPtIY) 

4P5 ca V ) = p tlY*IXX, J)»P0MIIY) I-SI (lY) 

C IN'" 1 >:C(NK1) -TfFYFDlFE 
IF( ITEST.EC.l) GO TO 464 
WRITE (6,409» tSim ,I = 2,NM1) 

WRITF( 5 ,t »101 (STPCI ) ,T = 2 ,NH 11 
4 D 5 F 0 R“AT( 17 H CO-^P SOLVE TESTS/ 6 H SI 1 1 1 / C 3 X , 1 P 6 EU . 3 Jl 
410 rORPAT( 7 H SIP 1 1 ) / ( 3 X , 1 P 6 E 1 1 . 1 ' JJ 
KPITE( 6 , 4 rj 51 (A<I) ,I= 2 ,NM 1 ) 
kRITr(&, 4 C'b) (BtIl,I = ?fNMl» 
hRITE( 6 , 4 D 71 (C(I J ,I = 2 ,NHH 
kPITE(&, 4 rB) ( 0 (IJ,I= 2 ,NM 1 ) 

C SOLVE FOR DOWNSTREAM F 'S 

454 C(2)=C«2I/D12) 

D(2>=A(2»/D<2) 

DO 4t5 1=3, NHl 
T=D(I)-B(I)>>0(I-n 
DC) =At II7T 

465 C(H=<3(IUC(T-1 )*Cm)/T 
DO “66 I0ASH=1,NH2 
1=N“IDASH 

IXV=I+IXXP1 
Sin l = F(IXY,J) 

466 F(iyY,JI=Dm#F<IXY + lTJJtCm 
IF JJ.NE.JF) 50 TO 489 
F4AX=D.Q 

DO 462 IY=Z,NH1 
IXV=IY+IXXP1 

IF < F(IXY,J 1 .LE .FWIN) GO TO 462 

FHAX=A4AX1(ABS(51 tIY)-FClXY,J))/(F(TXY, J)+TTNY),FHAX> 

462 CONTINUE 

IF f FHAX.LT.FUTEST) GO TO 489 
IF (NIT.LE.NFUHAX) GO TO 483 
489 00 461 1=2, KHl 
IXY=I+IXXPi 
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2ZB 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
252 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 
28C 
281 
2B2 

283 

284 


ABSF=ftB5tF(IXYtJ)» 

RESIDU( I)=F tIXY , Jl-RESIDUm 
IFIABSF.LE.FHINI GO TO 461 
ST0PE2 = ABSIRESI0Um 1/ABSF 
ir <ST0RE2.LE.RSFHAX(jn GO TO 461 
RSFPAX<a»=ST0RE2 
IR4FX(J»=JXtl 
IRHFY(J)=I 
461 CONTINUE 

IF1ITEST*£Q.1J GO TO 4314 
WRITtlbt476» d| (FUVtrxXPl.JI |IY=l,N) 

476 FORMATteH F CIXY , 1 1 2 , tH t / t 3Xt 1P6E11 . 3 1 1 
4314 IFtd.EO.JPI GO TO 4317 

C LONSITUDINAI. TPMA, 

BLF( IXD,J)=BLFnXD, J) *P 

CLF(1X>=0»0 

CLF tIXDD)=0.0 

OLF I IXD, jjrO.O 

DO 492 IY=2,NH1 

DLF t iXOi J>=OLF|TXD, J) +POHllY»-SIPaVI 
CLF t TX) =CLF(IXj-tEHUU<IY>9RE5IDU(IY) 

492 CLF tIXOO)=CLF(lXDO)+lEHUD(IY)+POHtlY) )*RESIOUtIYl 
CLFl lXI=CLFtIXl*DX/XStIX) 

CLF (IXOD)rCLFtlXODJ ♦0X/X5 tlXDOl 
IF tlTEST.EO.ll 60 TO 4720 
HRITF (6,41401 J, (ALF (JX, Jl , JX=2fLHl 1 
WRITE (6,415) (BLF( JX,J) ,JX=2,LH11 
WRITE (6,416) (CLF( JX),JX=2,LH1» 

WRITE (6,417) (0LF( JX , J1 , JX=2,LM11 
4140 FORMAT (16H LTOHA TESTS, F(,I2,IH)/7H AL t IX ) / ( 3X , 1P6E1 1 , 3 > > 
wRITF'6, 43231 

4323 FORKATUHO, 21HS0LUTI0N BEFORE LTDHA/1 
DO 4760 IY=2,NH1 

DO 999 dX = 1,L G 

IDUF = lY + (JX-1) A ri 

999 FDUM(JX) = F(TDUH,J) C 

478C WRITF (6,476) J, (FDUM(dX).dX = l,L) 

4720 CLF(2):CLF(2)/DLF(2,J) 

ELF<2)=ALF(2,d)/DLF(2,J) 

DO 4313 dX=3,LMl 

T=OLF( JX,dl-ElLF(dX, Jl+ELF (JX-1) ‘ 

ELF( JXi:ALFldX,j)/7 

4310 CLF (dX)=(BLFtJX,J)«CLF(JX-l)+CLF(JXl l/T 
CORR=Q,Q 

DO 4320 JXJ=l,LM2 
JX = L-dXJ 
dXN- (JX-1 )*N 

CORR=ELF( JX)*CORR+CLF (JX) 

DO 4325 IY=2,NH1 
1XY=IY+JXN 

F(IXY,J)rF(IXY,J)+CORP 
IF (J.NE.JFl GO TO 4325 
F1IXY,J)=AHAX1(TINV,F (IXY,J1) 

FaXY,J)=AMTNl(F(IXY, JPI ,F( IXY,JI) 

4325 continue 
4320 CLF(JX)=D.O 

IF IITEST.EO.I) GO TO 4317 


187 


285 


WRITE 16*9322) 


285 

9322 

FORMAT 11HO,20HSOLUTION AFTER 

LTDHA/) 

287 


DO 9770 lY=2fNHl 


288 


DO 998 JX r l,L 


2B9 


IDUF = IV + tJX-1) * N 


29R 

990 

FDUH(JX) = F{10DH,J| 


29: 

9770 

WRITE (6|976) J, lFnUM(JX>,JX 

2 1,U 

292 

9317 

FU + IXXPl ,J) = Ft2+lXXPl|J) 


293 


IF (IBEXtJI.EO.l) 60 TO 980 


299 


FINtlXXPl , J)=F(NHl+rxXPl*J) 


295 


GO TO 980 


296 

9910 

DO 9«11 IY=1,N 


297 


IXVrIY+IXXPl 


298 

9911 

FtlXY, JF)=F{IXY,JP) 


299 

3ur 

9B0 

CONTINUE 





301 


RETURN 


302 


END 



1B6 



/ 


1 

2 

3 

4 

5 

6 
7 

e 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
29 
29 
3P 

31 

32 

33 

34 

35 

36 

37 
3S 

39 

40 

41 
4.2 

43 

44 

45 

46 

47 
45 

49 

50 

51 
32 

53 

54 

55 

56 


SUBROUTINE CREKO 
INCLUDE COHDiLIST 
INCLUDE C0HE»L1ST 
DIMENSION DA7ACl21t ATf4l,B(4) 

C 

CHAPTER 1111111111111111 
C 

DATA GAE^IHB/ 

DATA ELEH/gWELEI'-/ 

DATA RVRS/4HREVE/,THIRD/4HH / 

DATA THRH/i|HTHER/|AHCH/4HHECH/fBLANK/4H / 

DATA T ENLN/2. 3325 BS/,XMAX/0. 001 /(XHIN/D, 000333333/ 

5 READ (5,901) (DATAtX) ,1=1,121 
901 format (12A41 

IF (DATAdl.EO. BLANK) GO TO 5 
IF (DATA(ll.EQ.ELEH) GO TO 10 
IF (DATAm.EO.THRH) GO TO 20 
IF (KNTCS,E0,D) RETURN 
IF IDATA(l) ,EO.AHCH) GO TO 30 
C 

CHAPTER 2222222222222222 
C 

10 NLH=1 

11 READ (5,950) ( ATOM ( K , NLH ) , K=1 ,3) 

950 FORMAT (A2,7X,2F1Q.'6) 

IF (AT0M(1,NLM|.EQ. BLANK) GO TO 12 

NLH=NLH+l 

GO TO 11 

12 NLH=NLH“1 
GO TO 5 

C 

CMAPTEk 3353333333 333333 

C 

20 NS=1 

21 READ (5,920) ( DATA ( I ) , I =1 , 3 ) , DTI ,DT2 , (AT ( J) , B t J ) , J=1 ,4 ) , PHA2 , 
1T1,T2,NCD 

920 FORMAT t 3 A4 , 6X , 2A 3 , 4 ( A2 , F3. 0 > , A 1 t2FlD .3 , 1 15 > 

IF (DATAtl) .ED, BLANK) GO TO 26 

IF (PHA2.NE.GA2) WRITE(6,919) ( DATA ( I ) , I = 1 , 3 ) ,PHA2 
919 FORMAT (1HD,1DX,29H WARNING., .DATA FOR SPECIES ,3A4,19H NOT GA 
IS, RUT ,A1 //) 

READ(5,922) ( 2 ( I , J , NS ) , J=1 , 5 I ,NCO 

922 F0RMAT(5E15 ,8,15) 

HEAD (5, 922) (? ( 1 , J , NS ) , J=6 , 7 » , t 2 ( 2,K ,NS ) , K= 1 , 3 ) , NCD 
READ (5, 923) (Z ( 2 , J, NS ) , J=4 , 7 ) ,NCD 

923 F0RMAT(4E15,8,I20) 

DO 22 L=1,NLH 

22 AL(L,NS)=0.D 
SUM=D,Q 

00 ?4 K=l,4 

IF (R(K}.EO.D.) GO TO 24 
DO 23 L=1,NLH 

IF (AT0M(1,U,NE.AT(K)) go to 23 
AUL,NS) = AL(L,NS)+B(K) 

SUHrsU4+AT0M(2,L)*B(K) 

23 CONTINUE 


is 


1B9 



S7 

24 

CONTINUE 




&a 


SMWtNS)=SUK 




S9 


DO 25 1=1,3 




60 

25 

ASUB (NS,II=DATA(Z) 




bl 


NS=NS+1 



CRK00141 

bS 


60 TO 21 



CRK00142 

63 

2b 

NS=NS“1 




64 


NSH=NS*1 



CRK00146 

65 


NA=NS+1 




66 


00 27 1=1, NS 




67 


RSHW=1.0/SHH(I) 




68 


DO 27 0=1,7 




69 


DO 27 K=l,2 




70 

27 

Z(K , J,I)=2(K,J,I)>XRSHW 




71 


GO TO 5 



CRK0D149 

72 

C 





73 

CHAPTER 4444444444 

4 4 

4 4 4 

4 

74 

C 





75 

30 

JJ=1 




76 

31 

READ (S j 93Q) t DATA ( I ) , I =1 , 12) ,B>t ( JJ ) , TEN ( JJ ) , TACT ( JJ » , DTI , DT2 


77 

930 

FORMAT (12A4,3F8.3,2A4» 



CRK00164 

78 


IF IDATA(l) .EO. PLANK) DO TO 39 



CRKQC165 

79 


IF(DTl.NE.RVRS) 60 TO 32 



CRKOUIG? 

BO 


J=JJ-1 



CRK-nOI6B 

81 


BX2( J)=BX(JJ) 



CRK0Q169 

8 ? 


TEN?CJ)=TEN(JJ) 



CRKPQ170 

87 


TACT2( J)=TACTCJJ) 



CRK00171 

84 


BX2< J1=1C.«*BX2(J) 



CRKn0175 

65 


60 TO 3i 



CRK0D176 

E6 

32 

EX( JJ)rl0.3«*BXfJd) 




87 


DO 33 1=1,4 



CRK00188 

8 ? 

33 

ID{I,JJ)=D 




6Q 


ND=1 



CRKD0I92 

90 


DO 38 N=l,6 



CRK0tll93 

91 


K=N*2-1 



CRK00194 

92 


IF" < DATA tK J .EO.oLANK) 60 TO 38 



CRK00195 

93 


IF (DATA{K1.NE. THIRD) 60 TO 34 



CRK0Q196 

94 


DATA tK)=3LANK 



CRK0D197 

9S 


60 TO 38 



CRK00198 

96 

34 

DO 35 1=1, NS 




97 


IF (DATAtKl .NE.ASUBtl.in GO TO 35 



cRKOoaoi 

98 


IF tDATA(K+l),NEtASU8tI,21) 60 TO 35 



CRK0D2D2 

99 


II = I 



CRKOD203 

100 


GO TO 36 



CRK00204 

lUl 

3S 

CONTINUE 



CRK002Q5 

102 

36 

IF tK.GT.3) GO TO 37 




1L3 


ID(ND,JJ)=II 



CRK0020B 

104 


ND=ND+1 



CRX00209 

1C5 


GO TO 38 



CRK00210 

106 

37 

IF fND.EO.2) ND=3 




1U7 


ID{ND,JJI=II 



CRK0C213 

lOS 


ND=ND+1 



CRK0D214 

109 

36 

DX= ( XHAX-XKlM)*7, 14 285 7E “2 




11^ 


SUHX=D.O 



CPK0U227 

111 


SUKY=O.D 



CRK0D228 

112 


IHCPS=3 




113 


NS1 = 1 





190 



NS2=NS 


ns 

DO 381 HSltl5 

CRKn023n 

116 

X(N)=X51H>DX»FL0AT(N-IJ 

CRK00231 

U7 

SUHX=SUHX+XCHI 

CRKOQ232 

118 

TK=1./X(N1 

CRK00233 

119 

TLM=ALOGITKJ 

CRK00239 

12P 

CALL KCPS 

CRK00235 

121 

SUH1=0»Q 

CRKOQ236 

122 

DO 382 MD=lt9 

CRK00237 

123 

K=ID (NDtJ>J) 

CRK00238 

129 

IF (K.EO.OJ GO TO 382 

CRR00239 

125 

GF=t HOCK) -SOCK n’CSHMtK} 


126 

IF (ND.LT, 3) SUH1=SUH1+GF 

CRKn0291 

127 

IF CND,GE.3> SU“1=SUH1-SF 

CRKn0292 

128 

382 CONTINUE 

CRK00293 

129 

SUH1=EXP(SUH1) 

CRKD0299 

no 

TH1=1,D 

CRK00245 

131 

IF (I012,JJ) ,EO,D) TMl=O.Ofl2057=«'TK 

CRK00296 

132 

IF IIDt9tJJ).EQ.O) TKm.O/(0.082057*TKl 

CRKO0297 

133 

AKseXCJJ) 

CRK0029B 

139 

IF (TENCJJI ,NE,P,Q) AK=AK*TK**TEN(JJ1 

CRKQU249 

135 

IF CTACTC JJl.NE.D.Ol AK=AK*EXP(-TACT(JJ)/TKI 

CRK002SO 

136 

AK=AK#TMI/5UH1 

CRK0Q251 

137 

Y(N)=ALOG (AK) 

CRK0025? 

138 

SUHY=SUHV+V(N» 

CRK00253 

13° 

381 continue 

CRK00254 

14C 

XBAP=5UHX>^6.6&666&7E-2 


191 

YBAR=SUHY»6.6666667E-2 


192 

SUKX=0.0 

CRK002S7 

193 

SUHlzQ.Q 

CRKQ0258 

199 

SUHY=Q.O 

CRKDQ259 

195 

DO 383 N=l,15 

CRK00260 

196 

SUKYrSUKX+V (N1«(X(N J-XBARl 

CRKD0Z61 

197 

SU‘1]=SUH'1 + (X(N»-XBAR)**2 

CRK00262 

198 

3f>3 SUHY=SUMY+( Y(NI-YBARJ9i*2 


199 

TEN?(JJ»=D.O 

CRKnU265 

15D 

TACT2(JJ)=-SUMX/SUHl 

CRK00266 

151 

faX2( JJ)=(YBAR+TACT2 ( JJ)*XBAR)/TENUN 

CRKD0267 

152 

SUHX=0.0 

CRK0026e 

153 

DO 389 N::lfl5 

CRK0U269 

159 

3R9 SU5X=SUMX+« YINI +TACT2C JJl *X CN)-TENLN*BX2( JJ))**2 


1S5 

SUKY=saRTtl,-SUHX/SUHY) 

CRK00272 

156 

SUMX:S3RT{SUHX*7,192857E-2) 


157 

BX2(JJ]=lQ.<c4=BX2(JJ) 

CRKa027e 

158 

JJ^JJfl 

CRKDD281 

159 

GO TO 31 

CRK0Q282 

160 

39 


161 

RETURN 

CRK00309 

162 

END 

CRK0a398 


^9'i 


SUBROUTINE SPECE 

include coho, list 

INCLUDE COHF,LI5T 


CHAPTER 1 
C 


7 


CONVEX. FALSE, 

8 


SM=D»0 

9 


DO ID 1=1, NS 

10 


S2t I ) = flKA>:l(S2m ,TINYK > 

11 


vm=AL0GlS2(I)I- 

12 


SH=SH+S2CI) 

13 

10 

XCI)=O.D 

14 


X(NSK)=Q.G 

IB 


V(NSH)=AL0S«SH1 . 

16 


IHATZN5K 

17 


KHAT=IHAT+l 

18 

C 


19 

CHAPTER 22222232 

20 

C 


21 


DO 17D ITER=1,ITHAX 

22 


CALL CALC 

2? 


IP ( .NOT, DEBUG) GO TO 12 

24 


hPITE (6,911) 

25 

911 

FORMAT (lHu,10X,3aH ELEHENTS A(I 

26 


DO 11 K=1,IHAT 

27 

1 1 

i*RITE (6,91?) (A(K,I) ,I = 1,KHAT) 

2f 

912 

FORMAT (IH ,1P16E8.0> 

2*5 

12 

DO 5C NN=1,IHAT 

30 


*\=NN+1 

31 


DO ?D J=K,KMAT 

3? 

”>r 

^ l-l 

A (NM , J] =A (NN,J)/A(NN,NN) 

33 


IF (K.EC..KHAT) GO TO 50 

34 


DO 4C I=K,IMAT 

35 


00 4C J=K,KHAT 

3f 

42 

A(I, J)=A(I, J)-A(I,NK)*A{NN,J) 

37 

5D 

CONTINUE 

36 


K=IMAT 

39 

6C 

J=R + 1 

4P 


SUH = C.t) 

41 


X(K]=D.D 

42 


IF (IHAT .LT.J) GO TJO 80 

43 


DO 70 irJ.IMAT 

44 

7C 

SUM=SU4+a(k,I)«X(I) 

45 

82 

X(« ! =A(K,KHAT)-SUH 

46 


K = l(-1 

47 


IF (K.NE.D) go TO 60 

46 

C 


.. 9 

CHAPTER 33333333 

•' D 

C 


51 


ETArl.O 

57 


ETAl=l. 

53 


SU‘' = TINYK 

54 


DO 130 1=1, NSK 

bS 


JF tX(I l.LE.D.O) GO TO 130 

56 


SU4=AHAX1 (X(I) ,SUH) 


/I 


SPECQOOl 


1 


sPEcaozi 

SPECQQ22 


SPEC0D26 


•SPECD02P 


2 


SPEC0G37 

SPECU04D 

SPEC004S 

SPECD04& 

SPEC0D47 

SPEC0048 

5PEC0D5D 

SPEC0056 

SPEC0D57 

SPEC0061 

SPECD062 


SPEC0069 

SPECQ072 

SPECD075 

SPECQ076 

SPLC0077 

SPECOQ76 


SPEC0a84 

SPEC008S 


3 


SPECQ109 

SPECDllO 


/ 


h 




'S 

r 


% 




192 


t 


] 




57 

58 

59 
bO 
bl 
b? 
bS 
bX 
bS 
bb 
b? 
SB 
69 
7H 

71 

72 

73 
79 
75 
7b 

77 

78 

79 

85 
81 
a? 

83 

B9 

B5 

86 
B7 


IF (S 2 m/SM.GT.t. 0 e- 8 ) GO TO 130 
TST 1 = 1 ) 8 S ( (7 <N 5 H)->Ytl 1 - 9 . 212 ) /XII n 
ETA 1 =A 4 INUTST 1 ,ETA 1 I 
130 CONTINUE 

ETA = AMirjI 41 . 0 t 2 . 0 /SUHI 
ETA=AMIN 1 (ETA,ETA 1 ) 

C 

CHAPTER 949 Httb 4464 ‘l«l«) 46 i| 
C 

DO ISO 1 = 1 , N 5 K 

vm:YII)+ETA*XfU 

Y(I )=AHAX 1 (Y(T),TNV» . 

S 2 I 1 ) = EXP(va) I 
15 Q CONTINUE 

IF IDE 5 US) MRITEI 6 , 998 ) J TE R, ETA , ( ASUB ( K , 1 ) , 52 1 K ) , Y I K » , X ( K ) , 

1 K= 1 ,NSK) 

C . 

CHAPTER 555 S 555 SS 5555 S 55 
C 

IF ’IETA ,LT, 1 .) GO TO 170 
DO 160 1 = 1 , NSK 

IF ISEClI.LF.TlMYK+l.nOl) GO TO 160 
IF (ABSIXIin.GT.EPSS) 60 TO 170 
160 CONTINUE 

CONVCi.TRUE. 

998 FOR«AT{ IHD.bHITER = , 1 3 , 5 X , 5 HETA = , IPE 10 . 3 // 1 7 X, 2 HS 2 , 12 X , 5 HL 0 GS 2 , 
1 8 X, 8 HaiL 0 GS 2 )//l 5 X,A 4 ,lP 3 E 15 . 6 ) ) 

RETURN 

170 continue 
RETURN 
END 


5PECQ129 


SPEC0149 

SPECQ151 

5PEC0157 


SPEC0169 


SPEC0162 

SPEC0183 


SPEC0169 

SPEC0191 

SPEC0193 

SPEC022P 
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^ • 


1 

2 

3 

4 

b 

7 

e 

9 

10 

11 

1 ? 

13 

14 
1? 
16 
17 
le 
i*? 
2D 
21 
2 ? 
27 

24 

25 

26 
27 
2B 
29 
3C 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4D 

41 

42 

43 

44 

45 

46 

47 
4B 
49 
5D 

51 

52 

53 

54 

55 

56 


SU39CI0TINE CALC 
INCLUDE COHO, LIST 
INCLUDE COHEtLlST 
C 

CHAPTER I 1 1 1 1 1 1 1 

C 

NSKl-NSK+1 
DO 5 1=1, NS 
DO 5 K=1,NA 
5 A(l,K»rO*D 

RHSH=PA/(GASC0N!*:TK) 

RECTK=1 ,0/TK 
RHOP=RHSH/SH 
RHSC=RH0P#RH0P 

rhs^p=rhsh*rhop 

RHSH5Q=RHSH’^RHS0 

c 

CHAPTER 22222222 
C 

DO 100 

Rirrx{J)MEXPt-T«CTt J»*RECTK1 
R2 = r X2( J)*E7Pt-TACT2( J)9RECTK1 
IF (TEN (J).NE.O.) R1=P1*TK**TEN{ J» 

IF ( TEN2( J) .NE.9. ) R2rR2*TK*‘l'rEN2t J) 
1=10(1, J1 
K = iri(2, J) 

H=ID(3,JJ 
N=ID (4, J» 

IF (K.EO.D) GO TO 2D 
IF (N.EO.D* GO TO 30 
H00E=1 

Rl:(RHSC*S2(I) )^(R1*'S2IK»1 
R2= { PHS0«'S2( H J )*(R2*S2(N) J 
60 TO 4D 
20 HOOE=2 

R1=PHSMP«R1*S2( I ) 
R2=PHSHS0>!'S2(H)*R2«S2(NJ 
GO TO 40 
30 H0?E=3 

R1 = PHSHS0#S2( I 1 >!‘R16S2 (K1 
R2=RHS4P*R2#S2 ( K) 

4D TH1=P1-R2 

A(I,1I=A(I,II+R1 

A(M,I»=A(K,I)-R1 

A(It'^)=A(I,P>-R2 

A(H,H)=A(H,H)*R2 

A(I,NA)=fl(I,NAl-THl 

A(H,NA)=A(H,NA>+TH1 

IF (P0DE.E0.3) 60 TO 50 

A(N,I)=A(N,I)-R1 

A(N,mJ=A(N,h)+R2 

A (I ,N1=A( I,N)-R2 

A (H , N) = A(H,N) +R2 

A(N,M = A(N,N)+R2 

A(N,NAJ=A(N,NA1+TH1 

IF (M0DE.E0.2) GO TO IDO 


CALCDOOl 


1 1 1 1 1 1 t I 


CALC0024 


CALC0045 

CALCQQ46 


CALCaa48 


CALCQ059 

cALCooen 

CALC0Q62 

CALC0063 

CALC0064 

CALC0Q&5 

CALCQ067 

CALCQD68 

CALCUQ72 

CALCDQ73 

CALC0074 

CALCD079 


CALC0092 


CALGD114 

CALCDllS 

CALCQllG 

CALCD117 

CALCD122 

CALC0123 

CALCD124 

CALCQ126 

CALCD127 

CALCU128 

CALCG129 

CALC013D 

CALC0133 

CALCD134 
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57 

SO 

A(K,I)rA|K,I)4-Rl 








58 


A(ItK)=A(ItK)^Rl 







CALC0138 

59 


A(K«K|rAtKtKHRl 







CALC0139 

6C 


A(H,K)=A(K,K)-R1 







CALC0140 

bl 


AIK,H»=A(K,HJ-R2 







CALC0141 

62 


A(«tNA)-A(K,NA)-TH1 







CALCdlRR 

63 


IF (H0DE.£0*3) DO TO IQQ 







CALCD14S 

64 


A(N,KI=AfH«K»-Rl 







CALC0146 

65 


A(K,N)=AtK,N)-R2 







CALCQ147 

66 

IDO 

CONTINUE 








67 

C 









68 

CHAPTER 333333333 

3 

3 

3 

3 

3 

3 

3 

69 

C 









70 


DO IID lrl,NSK 








71 


A(I, nr ACI,I)+EHV*S2(I> 







CALC0I97 

72 

IID 

Afl iN5Kl)rAIItNB>+EHV«(Sl ID-SZmi 








73 


RETURN 







CALC0212 

74 


END 







CALC0287 
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ORIGINAIJ PAGE IS 
OP. POOR QUAUTY 


1 

SU3P0UTIME HOPS 

HCPSQOOl 

2 

INCLUDE COttO»LIST 


3 

K = 1 

HCPS0013 

4 

IF ITK^LT.IPOO.I K=2 

HCPSQDIU 

5 

TKl=l,a/TK 


6 

TK3=TK*TK 

HCP.5Q016 

7 

TK4 = Tk3«'TK 

HCPSU017 

8 

TK5=TK4*TK 

Hcpsoain 

9 

TH2=TK«.5 

HCPS0019 

10 

TH3=TH3*. 333333333 

HCPSQD20 

It 

TH4=TK4^,25 

HCPSD021 

17 

TH5=TK5^.2 

HCPSQ022 

13 

IF tIHCPS-2> iD0|2DO»300 


14 

100 HSLIMro.O 


15 

DO 5 I=NS1,NS2 


16 

HDtl ) = rM5'»ZtK,5tH + TH4*2(K»4,I)+TH3*2(K,3,I)+TH2^«2lK,Z,lJ + 


17 

1 ZtH,l»I)+ZtK,6,IJ4<TK] 


18 

5 HSUr=HSUM+HQ(IJ*'S2l I> 


1*5 

RETURN 


2D 

ZOO HSUP=OiD 


21 

CPSUH=O.D 

HCRS0023 

22 

DO ir I=NS1,NS2 


2 3 

2K51-ZtK,5tI» 


20 

ZK4I=2(K,4tI) 


25 

ZK3I=2tK»3tI) 


26 

ZK2I=Z«Kt2,I) 


27 

ZK1I=Z(K,1,I) 


25 

H0< 1 I=TF5>fZK5I + TM4#2K4ltTH3«ZK3I + TH?#ZKZI+2K 1I + ? «K ,6 ,I )4(TK1 


2<= 

COSUPrt TK5f‘7K5I+TK4i«ZK4I + TK3*ZK3I + TK*ZK21+ZKlI J *S2(It+CPSUH 


50 

10 HSO'^=HSOH + HO(n=!'S2m 


51 

RETURN 


32 

no TK3 = TK3’CQ.5 


33 

TK4=TK4tD, 3333333 


34 

TK5rTK5*DiZS 


35 

DO ZD I::NS1,NS2 


3b 

2K5I=2tK,StI) 


37 

ZK4T:;Z(K,4 ,I J 


38 

2K3I=2(K,3,It 


39 

ZK2T=Z{K,2tr» 


40 

ZKlI=2(K,l,n 


41 

sot I >-T«5-!'ZK5I + TK4«ZK4I + TK3*ZK3I+TK*ZK2I+TLN>!>ZK1I+Z tK,7»I> 


42 

20 HDtl )=TM5«ZK5I + TM4>;tZK41+TH3*l'ZK3I+TH2*ZK2I*ZKlI + 2 tK,6»U*TKl 


43 

RETURN 

HCPS004D 

44 

END 

HCP50041 
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0 
5 
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7 

e 

9 

in 

n 

i? 

n 

i« 

15 
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17 
Ifl 
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2P 
21 
22 
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2S 
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3? 

■ 53 
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35 

36 
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44 
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SUBROUTINE WALU IOUTltOUT2) 

INCLUDE COHA, LIST 
INCLUDE COHB.LIST 
C 

C FOR VELOCITY, 0UT1=BP, 0UT2ST 

C FOR F *S, OUTlrFlOlF, 0UT2=T 

C 

CHAPTER A PRELIMINARIES 

DATA BPLAST,SHALF/U0t0.04/ 

DATA TINY/IaOE-20/ 

IF <J.5T,0) GO TO 20D 

chapter 3 VELOCITY — 

IXY=NH1*IXX 

UREF=U(IXV) 

RH0PEF=RH0(NM1» 

BUREF=RH0REF*UREF 

rref=rinhi» 

VREF=£MUINI 

VREFZRE 

RFy=RUREF#yR£F/VREF 
RRUPtF=RREF=i»RUREF 
EF=YREF#DPDX/ CRL'REFi^-UPEF) 

IF (KOOEL.EO.il GO TO 110 

IF (PEY.LT,132.23» GO TO 110 

ER=REY*EWAL 

ARGMINril.B^EWAL 

NIT-0 

iCl SHALFlrSHALF 
S=SHALF«*2 
SLOC=S+EF 

IF ( SLOC.GT.O.Q) GO TO 104 
SLOC=TINY 

SHALF=SORT( ABS (EF 1 1 
104 6EE=SCRT(SL0C»/AK 

ARS=ER«(5HALF+C.S*EF/5HALF» 

IF ( APS.LT.AR6H1N) GO TO 110 
SHALF=AK/AL0G(ARG1 

IF (ABS(SHALF-SHALF11.LT. 0.00011 GO TO 1D2 
NIT=NIT+1 

IF (NIT.LT.lll GO TO 101 

102 S=SHALF*>!t2 

SAV = D.S«‘(S + SL0C1 
EP=1.D/(1.0+SEE1 
GO TO 1D3 
110 CONTINUE 
FR£=EF*REY 
SPE=D.5^(2.n*FREI 
BP=ERE*0.5+FRE«n. 1666667 
IF tSRE.GT.TINY 1 GO TO 113 
SRE=TINY 
BP=0. 3333333 
113 S=SRE/R£Y 
SAV = S 

103 T=S«RRUREF 

C UNOER-RELAX BP. 

BPrt'.S'MBP+BPLAST) 


WALL 

WALL 

WALL 

WALL 

WALL 


wall 


WALL 


WALL 

wall 


WALL 


WALL 


7 

10 

11 

12 

13 


19 


22 


27 

29 


69 


72 


197 


57 

SB 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7fl 
79 
60 
dl 
S2 
83 
S4 

86 

87 


BPUASTeBP 

OUTISBP 

DUT25T 

SU=SAV 

$22=RRUREF 

53=0REF 

S4=RE7 

GO TO 90D 

C — — — 

CHAPTER C ENTHALPY — — — — — - 

200 SAV=S11 

RRUREFrS22 

UREF=S3 

REVrSR 

IF (HOOELtEO.n GO TO 21Q 
ppRATrPRL (J)/PRT( J) 

PJAV=9.C*<PPRAT-1 .O/PRRAT+^OtSS 

SrSA V/(PRT(J)>f'n .□♦AHAXl I -0.99999, PJAY+SORT tAPStSAVM))! 

OUT?rs*RRUREF 

0UT1=(H-1 ,D)*D.5«UREF**2 

GO TO 900 

210 S = 1 ,0/(PRL« JI*REY> 

0UT2=S*RRUREF 

OUTlPtPRUJHJ-i.Oi^O.SPUREF-Sf^a 

C — — 

9GD IF (ITEST.EC.n RETURN 

WRITE (5,9anO) J,0UT1,0UT2 

5C’»0 FORMAT tl2H WALL TESTS, ,3H J=,I3,6H 0UT1 = ,1PE1Q.3,6H 0UT2 = , IPEIO .3 
1 I 

RETURN 

END 
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1 


SUBROUTINE PLOTS ( X , IDIME , IMAX , X AXIS , Y ,JOIME »JMAX tYAXZS) 

PLOT 

2 

2 

C/OCT. 1975/GENHIX/ — 0. B . SPALDING , IMPERIAL COLLEGE 

-♦PLOT 

3 

3 

C 


♦PLOT 

4 

4 

C 

SUBROUTINE FOR PLOTTING J CURVES OF Y(I,J) AGAINST XdU 

♦ PLOT 

S 

5 

c 


♦PLOT 

6 

6 

c 

X AND Y ARE SCALED TO THF RANGE 0. TO I., FOR PLOTTING AS 

♦ PLOT 

7 

7 

c 

1 Y-YMIN) /(YHAX-YMIN) , THE MAXIMUM AND MINIMUM VALUES ARE PRINTED 

♦PLOT 

S 


c 

N.B, THE X AND V ARRAYS MUST BE REDEFINED BEFORE EACH CALL PLOTS. 

♦ PLOT 

9 

g 

c 

TOIHE IS THE VARIABLE DIMENSION FOR X* 

♦ PLOT 

ID 

ID 

c 

IHAX IS THE NUMBER OF X VALUES. 

♦PLOT 

n 

11 

c 

XAXIS STORES THE NAME OF THE X-AXIS. 

♦ PLOT 

12 

12 

c 

JDIHE IS THE VARIABLE DIMENSION FOR Y. 

♦PLOT 

13 

13 

c 

JMAX IS THE NUMBER OF CURVES TO BE PLOTTED, lUP TO 301. 

♦ PLOT 

14 

m 

c 

THF ARRAY YAXIStJ) STORES THE NAMES OF THE CURVES, 

♦ PLOT 

15 

15 

c 

THE FIRST character OF EACH CURVE-NAME IS USED FOR PLOTTING. 

♦ PLOT 

16 

16 

c 

XSIZC ALTERS THE X-PLOT SIZE BY A FACTOR OF .2 TO 1., IN STEPS OF . 

l^PLOT 

17 

17 

c 

YSIZE IS THE Y-PLOT SIZE FACTOR OF .2 UPWARDS IN STEPS OF .2 

♦ PLOT 

IS 

le 

c 

XSrZErl., YS1ZE=1. GIVES NORMAL SIZE PLOT. 

♦ PLOT 

19 

19 

c 


♦ PLOT 

2D 

20 


21 

21 


DIMENSION X(I01MEI,Y(1DIHE,J0IME) ,YAXIS<JD1ME1, 

PLOT 

22 

22 


1 A( ICl) ,YHAX ( 30» tYMINCSO) .DIGITCm 

PLOT 

23 

23 


EOUI valence (YMAXm,Am ), (YHINtll ,A(3in 

PLOT 

24 

2M 


DATA DOT,CPOSS,BLANKF1H.,1H+,1H / 

PLOT 

25 

25 


I,DiniT/lHD, 1H1,1H2, 1H3,1H4,1H5,1H6,1H7,1HB,1H9,IH1/ 

PLOT 

26 

2b 

SET PLOT SIZE FACTORS 

PLOT 

27 

27 


XSIZE=D.S 



25 


YSIZE=D.fi 



20 

SCALING X-ARRAY TO RANGE Q TO 100*XSTZE 

PLOT 

30 

3P 


XRriGD.*XSI2E 

PLOT 

31 

31 


XHAX=-1,E30 

PLOT 

32 

3? 


XHIN=+l.E3D 

PLOT 

33 

33 


1H=THAX 

PLOT 

34 

3*1 


DO 1 1 = 1, IH 

PLOT 

35 

35 


XMAX = AMAXllXHAX,X(I) ) 

PLOT 

36 

36 


1 xmin=aminh xHiN.xm I 

PLOT 

37 

37 


S=XP/CXHAX-XHIN^1 .E-30) 

PLOT 

3S 

3? 


DO 2 1=1, IH 

PLOT 

39 

39 


2 X(D=(X (I)-XMIN)*S 

PLOT 

40 

HO 

C«>(=4^’!‘ SCaLING Y-ARRAY TO RANGE Q TO SO^YSIZE 

PLOT 

41 

HI 


YR=SO.*YSIZE 

PLOT 

42 

H2 


JH=JMAX 

PLOT 

43 

*f3 


DO 4 

PLOT 

44 

4H 


YMAX tJ)=-l.E3D 

PLOT 

4S 

HS 


YMINtJI =+l.E30 

PLOT 

46 

96 


DO 4 1=1, IH 

PLOT 

47 

47 


YHIN(J>=AMIM(YHIN( J) ,Y (1,411 

PLOT 

48 

HE 


4 YKAX(J)=AHAXHYMAX( J1 ,YtI,Jl 1 

PLOT 

49 

49 


DO 3 J=1,JM 

PLOT 

5D 

50 


S=YP/(YMAXt J)-VM1N( JI+1.E-3D) 

PLOT 

51 

51 


DO 3 1=1, IH 

PLOT 

52 

52 


3 Y(l, JI=(Y(I,J1-YMIN(JII*S 

PLOT 

53 

53 

WRITE CURVE NAMES, WITH ACTUAL HIN AND MAX VALUES 

PLOT 

54 

54 


J=1 

PLOT 

55 

55 


L=IFIX(XR/10. 1 

PLOT 

56 

56 


K=L 

PLOT 

57 
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57 

GO TO 6 

PLOT 

58 

5fl 

S jrJ^L 

PLOT 

59 

59 

K=K+L 

PLOT 

60 

&r 

6 K=MIKD(JH,K) 

PLOT 

61 

bi 

WRITE(6,1D1) (Y&XIS II »,I=J,4U 

PLOT 

62 

62 

HRITFI6,1C31 (YMINI I) ,I=JtK> 

PLOT 

63 

63 

wPITEIbflDH) (Y8AXm flrJiK) 

PLOT 

64 

6<4 

IFIK-JM) 5f7f7 

PLOT 

65 

65 

7 UBITEI5,106) 

PLOT 

66 

66 

C#«**i* MAIN LOOP - EACH PASS PRODUCES A V-CONSTANT LINE 

PLOT 

67 

67 

IX^IFIV |X512E*in, » 

PLOT 

68 

6F) 

KXrlFlXIXRl+1 

PLOT 

69 

69 

1Y:IFIXIYR*,U 

PLOT 

70 

70 

KY=IF1X(YR1+1 

PLOT 

71 

71 

N=KY+1 

PLOT 

72 

72 

DO 40 H=1,KY 

PLOT 

73 

73 

l=n-h 

PLOT 

74 

714 

IF(,L .EO .1 .OR.L.FO.KY) GO TO 32 

PLOT 

75 

75 

GO TO 33 

PLOT 

76 

76 

C***#* PUT . OR * ALONG THE X-AXlS 

PLOT 

77 

77 

32 DO 30 K=1,KX 

PLOT 

7B 

7R 

30 A(K)=DOT 

PLOT 

79 

79 

DO 31 K=ltKXtIX 

PLOT 

BD 

8'’ 

31 AIKlrCROSS 

PLOT 

SI 

81 

GO TO 45 

PLOT 

B2 

8? 

C«#:*** PUT . OR + AND Y-VALUES ALONG Y-AXIS 

PLOT 

83 

83 

33 All )=DOT 

PLOT 

84 

6U 

A (KX )=OOT 

PLOT 

85 

85 

K=L-1 

PLOT 

86 

86 

46 KrK-IY 

PLOT 

87 

87 

IF(F) 48,47,46 

PLOT 

88 

86 

4 7 A(1I=CR0.SS 

PLOT 

89 

8° 

AIKX ):CROSS 

PLOT 

90 

9r 

45 YLrrLOATCL-n/YR 

PLOT 

91 

91 

GO TO 35 

PLOT 

92 

9? 

48 YL=-1. 

PLOT 

93 

93 

SEARCH FOR POINTS ALONG Y-CONSTANT LINE 

PLOT 

94 

9U 

35 DO 42 J=1,JM 

PLOT 

95 

95 

DO 42 1=1, IH 

PLOT 

96 

96 

1F{IFIXIY(I,J)+J.5)-L) 42,41,42 

PLOT 

97 

97 

POINT FOUND- ASSIGN SYMBOL- SEARCH FOR MORE 

PLOT 

98 

98 

41 NX = xm+1.5 

PLOT 

99 

99 

AINX jrYAXISI J) 

PLOT 

IQO 

IDO 

42 CONTINUE 

PLOT 

101 

IDl 

PRIM Y-CONSTANT LINE 

PLOT 

102 

102 

IFIYU 36,37,37 

PLOT 

103 

lu'' 

36 HRITEI6,1C6J (AfKJ ,K=1,KX» 

PLOT 

104 

1D“ 

GO TO 38 

PLOT 

105 

1 j5 

37 WPITE(6,1D7) Yl , C A 1 «) ,K = 1 ,KX> 

plot 

106 

1 U6 

C*#*** fill ARRAY A WITH BLANKS 

PLOT 

107 

1D7 

33 DO 49 K=1,KX 

PLOT 

108 

1L5 

49 A|K)=BLANK 

PLOT 

109 

lu9 

4D continue 

PLOT 

no 

nc 

PRINT BLANK OR X-VALUE FOR X-AXIS 

PLOT 

111 

in 

L = 1 

PLOT 

112 

112 

K=KX-1 

PLOT 

1X3 

113 

AIU=0I6ITm 

PLOT 

114 


2Q0 


114 


00 51 izlXfKtl}; 

PLOT 

115 

US 


LrL + 1 

PLOT 

116 

116 


Ain=D0T 

PLOT 

U7 

117 

51 

A(I + 1I = D1G1T(U 

PLOT 

118 

ns 


MK l=BLAMK 

PLOT 

119 

119 


HRITE(6,ID6I (A(K)tK=l,KXl 

PLOT 

120 

120 


WRITEl6tlOQ) XAXIS.XHIN.XMAX 

PLOT 

121 

121 


RETURN 

PLOT 

122 

12? 

inc 

FORMAT tlHD,l?HABSCIS£A IS tA«,SH HTN=,1PE9.2,5H NAX=,£9.2/) 



123 

101 

FORMAT! IHOtOHOROINATE ,l2(A8t2X) ) 

PLOT 

124 

124 

103 

FORMATUK ,7H HIN ,1P11E10.21 

PLOT 

125 

125 

104 

FORMATllH ,7H KAX ,1P11E1D.21 

PLOT 

125 

126 

106 

F0RMA7»6X,10lAn 

PLOT 

127 

127 

107 

F0RHAT(2R tF3tl,lXil01Al} 

PLOT 

128 

126 


END 

PLOT 

129 
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LISTING OF DATA CARDS FOR THE NASCO PROGRAM 


ELE^^EMTS 

C 


1?. 01115 
1.00797 

I5.999tf 

14.0C67 


4.0 

1.0 

- 2.0 

0.0 


THERi^O FOK 

■I 

0. 24 5C2ft7fiF 
a.5fillf,n35F 
— 0 •5o4y56fi2F 
jjO 
U.31 

U.94. 3242F 

-L' .61 139?54F 

:J’J2 

ri.4f,24G759r 
f.,2?b9990nr 
-0 .99556ft65F 
.J20 

<■:. 47506662F 
U .01 617617F 
t,.22275677F 

r,. 2r,9f,3i94F 
-(1 , 9r.5fiFi 
-l?.6321752nF' 
rri4 

U . a 5027072F 
-U ,99707076^ 
-.!j,2?73292fF' 
O'- 

C'.3F2l952lr 
-f. . I20isa2?r" 
-0 .67h5507lF- 
cu 


CtJ4/AlK COFBUSTlO.j 
J 3/6 IN 1.0 
Cl 0 ,10A6145ttE-03 
05 0.44467572E 01 
-10 0.2099903SE-13 
J 6/63N l.U 
01 0 .153G2279E-02 
04 0.b7456ll5E 01 
-Ofi 0.159l907aE'll 
J 9/64ii 1.0 

01 0.£5?60530e-U 2 
04 0.13324137E Ul 
-Da 0,36195873E-11 
J12/b4H 2.0 

01 0 .?aP5a264F-u2 
04-0 ,171 51Q70E 01 
-Oa-O.B065U27bE-l3 
J 9/6 5iJ 2.0 
01 0 . 151 54663E-02 
D3 U,6lel5l43E 01 
-09-0 ,22577253£-1^:. 
J 3/61C IH 
01 0 .l041f>7vrjE-Ol. 
C4 0.1U707143E 02 
-07 0 .69626957E-11. 
J 9/650 2.0 

01 0 .736la256E-UsS. 
04 U.36150942E 01 
-Oa 0 ,2155r-977E-U- 
J 9/65C 


I IaiITh fiOX 
in 0.00 Q.on n,6 
-0 .74653315F -07 
0.25f)3U699E 01’ 
0.5609£a9SF 05 

' i.noo.on 0.6 

-0.52R99316F:-06 
0.40459509E 0l- 
0.97453867F 04 

2. no o.on o.G 

-0.1(1609463F-05 
0.34569224E 01 
0.26152261L 04 
l.nO 0.00 O.G 
-0. 11550104E-0S 
0.26169194E 01 
0.87590076E 04 
0.0 U , 0 O.G 
-0 .57235275F-0F 
0.3h74;i257F 01- 
-0.lG6115«7r 04 
4C0 OOn OG 
-0 . 39iai52?f'-C5 
0.3fi26l93?E 01- 
-0 .10144950, E 05 
G . 0 0 . n n . G 

-0 .19652219F -06 
0.3f.2559c 1L 01- 
— 0.l04752,‘*'w 1.4 

1.0 0 c.on n.r. 


300, onO 5000. 
.ia796520t“l 0-0 
,2lQ001GlF-n4 0 
.41675749E 01 

300.000 5000. 
.95919314F-10-0 
,34iai7e3F-n2 o 
.29974976E 01 

300.000 5000. 
.19879239F-09-0 
.206470632-02 0 
.8311693DL nl 

300.000 5000. 
.212636O1E-09-0 
.Q6439550F-02-0 
.922Gfa95lE 01 

300.000 5000. 
.996073852-10-0 
,l20gl496F-02 0 
.235804182 01 

300.000 5000. 
.67777M99F-09-0 
,397945812-02 0 
.366900732 00 

300.000 5000. 
,362015562-10-0 

.la782183E-02 0 
,45052769E til 
300. OJO 5000. 


000 

.1 0259A37F-14 
'.54205?O4F-n7 

000 

.648470262-14 
.798191 742-05 

000 

.137993802-1 3 
.66866fl60r-05 

000 

.145640812-1 3 
.6ftlin6l2F-05 

000 

.65223536F-14 

,232401002-05 

000 

.442837062-13 

,245583402-04 

000 

,28945623'^-l4 

.70554543E-ff5 


' 0001 
„0002 
,0003 
,0004 
,0005 
_0006 
_0007 

_cono 

_0009 

_cni 0 
„Qoi 1 
10012 
_0013 
_0014 
10015 
_0016 
^.00' 
^0 01 a 

10019 

10020 
,0021 
l00?2 
10023 
_0024 
,0025 
10026 
10 027 

110028 

2.0029 

3.0030 
4,C031 

,003? 
10 033 
,0 034 
* 0 035 
,00 36 




t 


0.2qaff0689r Cl 0.l4891387E"C2-0,57a9567flE-0fi 0,in364576r-G9-0.6935?>499F-14 
-n.l424^.22?r 05 0.63479147E 01 0,371G09lfiE 01-0 , lfil90964E- 02 0 , 36923 «=v84f- 05 
-0.2n319673F-00 0 . 23953344E-12-0 • 1 4356309E 05 0.295553MOE Cl 
r02 J 9/65C 1.0 2, no O.On O.P 300,000 5000,000 

0.44fiOrt040F Cl a.309ai7l7E-D2-n.l?39256fit'-05 0 .22741323F-09-0 . 15525q48F-l 3 
-tJ.4a96l43ar 05-0,9Aft35978E 00 0-240077aflE 01 0 .87350905E-02-0 , A607nof^lr-05 
U. 20021460^-08 0 .63274039E-15-0 •48377520E 05 D.96951447E 01 

J q/fe5H 1.00 0,00 O.On O.G 300.000 5000.000 

0,2500nOOOF. 01 0.0 O.D 0.0 0.0 

0.25471625F C 5- 0 . 46 Ol 1758E 00 0,250000QOE Ol O.Q 0.0 

0.0 0.0 C.25471625L 05-0 ,460ll75aE 00 

H2 J 3/ftlH 2.0 O.f) 0.0 O.G 300.000 5000.000 

0.3ia01d83F 01 0,511 lq453F-G5 0 . 52644204F-07-0 . 34909964F-10 0 . 3fi94534lF-l4 
-0.87738013r 03-0 , 19629412E ul 0.30574446E 01 0 ,267e5198E-02-0. 540991 49E-05 
0.55210343F-Q8-0.1Bl22726E-ll-0.9fl89043QE 03-0 .22997046E 01 
h20 j 3/hlH 2.0 1.00 0,00 O.G 300.0f)0 5000.000 

y,27l67Gl6F 01 0 ,2945l370E-02-0 .80?243fiflr-OF 0 . 1 0226681F-n9-G .444721 04F -14 
-.0.29905820F' 05 0.6S305666E Ol 0.4n701275E 01-0.11 OS4499E-02 0 .41521 lc50E-Q5 
-0.29637404F-0a 0 , 807021 DlE-12-0 .30279719E 0 5-0 . 32270 038E 00 
0 o 6/62U 1.00 0.00 O.On O.G 300,000 5000.000 

n .2542 058 OF ol-O .27550603E-J4-D ,3l 028029E-04 0 .4551 OftTOF -1 1 -0 .436404 94F-1 5 
i;.29230.iOir 05 0.49203072E 01 0.29464283F 01-0 , 163816S4E -02 0 ,242103n3'^-05 
-a,lfi024432r-08 0.3e90G964E-12 D.29147641E 05 0.29639931E Ol 
!)H J 3/660 l.n 1.00 U.On O.G 300.000 5000.000 

D.29106417F 01 0.9593l627E-03-0.l944l70nF -06 0 . 1 3756646F -1 0 0 , 1 4?24942 f- 15 
U.39353allF 04 O.54425420E 01 n.3437593lF Ol-O .10778a55E-02 0 .96fl3P 354F-06 
U.lH71397ir-U9-0.2257l089E-12 0.3b412820K 04 0.49370009E 00 


mechanism 



ri 

1 10 

U 2 

G 


rj 

02 

NO 

0 


9H 

M 

H 

NO 


H 

N20 

OH 

N2 


N20 

0 

NO 

HO 


..J20 


[J2 

0 


ri 

0 M 

NO 

f'1 


mu2 

G 

fJO 

02 
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r,(j2 

■A 

0 

NO 


_0037 
10038 
>0039 
10040 
^0041 
>0042 
>0043 
>0044 
>0045 
I0Q46 
10047 
>0048 
10049 
*0050 
10051 
>0052 
>0053 
10054 
’0 055 
>0056 
_005 
>0058 
10059 
>0060 
10061 
10062 
'0063 
>0064 
’0065 


10 • 1. 7 6 0 

D.U 

0.0 

jALa7/74_0n66 

6. 77o 

1 , 0 

3172. 

iJAED7/74_0067 

8.778 

0.5 

4028. 

WALD7/74>0068 

10,903 

0,0 

7553. 

WALG7/74>0069 

11,000 

0.0 

isonn. 

WALD7/74_0070 

11 .QUO 

O.Q 

25176. 

WALD7/74.,0 0 71 

10.806 

-0.5 


>0072 

10.000 

0.0 

30 0 . 

10073 

13,041 

0.0 

33000, 

^UfJ74 


>0075 


SO 

ii 

is 

|Jl 

03 


s'" 


APPENDIX C - GLOSSARY OF FORTRAN VARIABLES 


NAME 


TYPE 

MEANING 

A 

COMP 

Array 

Finite-’dif f erence coefficient. 

A 

PLOTS 

Array 

One line of printed characters. 

A 

CALC 

Array 

Elements of the correction matrix. 

ABSF 

COMP, 

START 


Absolute value of F. 

AC 

BLOCK 

DATA 

Array 

Polynomial coefficients for specific 
heat of equilibrium-product-species. 
Specific heat at pressure IP*i . 0E5 is 
g:iven by AC(1, IP)+AC(2, IP)*T 
+AC(3,IP)*T*T+AC(4, IP)*T**3 
(T = temperature). 

AC02 

START 


Specific heat coefficient for CO 2 . 

AC 1-AC4 

CHEM 


Temporary storage, for coefficients AC* 

ADUCT 

MAIN 

Array 

Area of the duct. 

ADUCTD 

MAIN 


Downstream duct area. 

AFLOWD 

MAIN 


Downstream flow area. 

AFLOmJ 

MAIN 


Upstream flow area. 
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NAME 


TYPE 

MEANING 

AES 

CHEM 

Array 

1 

1 

Temporary storage for nolynomial 
coefficients for concentrations of 
equilibrium-product-species (see CHEM, 
ENTRY EQUIL). 

AFU 

START 


Specific heat coefficient for fuel. 

AH 

BLOCK 

DATA 

Array 

Polynomial coefficients for enthalpy 
of equilibrium-product-species (defini- 
nition as for AC). 

AH1-AH4 

CHEM 

i 


Temporary storage for coefficients AH. 

AH20 

START 


Specific heat coefficient for H20. 

AK 

BLOCK 

DATA 


Von Karman constant. 

AK 

CREKO 


Temporarily stored quantity. 

AL 

CREKQ 

Array 

! 

Atomic stoichiometric coefficients; 

AL (I,J) is the kg-atoms of element I 
per kg-raole of species J. 

ALF 

COMP 

Array 

1 

LTDMA Coefficient. 

ALPHA 

MAIN 

PHYS 


Temnorarily stored quantity. 

AMCH 

CREKO 

1 

1 

Alphanumeric storage for *MECH'. 

AM IX 

START 

1 

Snecific heat C'jefficient for gas 
mixture. 





NAME 


1 

TYPE 

MEANING 

AWTD 

START 

Array 

Downstream viscosity 

*AREA/(Ax)**2 

AMTJL 

START 


Laminar viscosity *AREA/Ax. 

AMULP 

START 


Temporary storage for 

AMTTL. 

AMTTLl 

START 


AMUL at inlet plane. 



Af^UT START Turbulent viscosity *AREA/Ax. 

AWTTP start Temporary storage for AMUT. 

AMUTD PFYS Downstream turbulent viscosity. 

Ar4Uo:m phys ai^^td/o.is . 

AMTTTTJ phys . Upstream turbulent viscosity. 

AfRITU 1 PHYS AMTJTTT / 0 . 1 5 . 

AMUU START Array Upstream viscosity +AREA/ ( Ax)**2. 

AN2 START Specific heat coefficient for N2. 

AOX START Specific heat coefficient for oxygen. 

AREA COMP Array DownstreaTi. cell area in the transverse 

direction. 


20B 



NAME 

LOCATION 

TYPE 

MEANING 

AREAIT 

COMP 

Array 

IJpstreaun cell area 1 b the traasverse 
direction. 

AREX 

BLOCK 

Array 

Duct wall coefficient. 


DATA 



ARG 

WALL 


Lof?arithm of argument. 

ARGMIN 

WALL 


Smallest value of ARG, 

ARRCON 

BLOCK 


Arrhenius constant, E/R. 


DATA 



AS 

BLOCK 

DATA 

Array 

Polynomial coefficients for reciprocal 
mean molecular weight of equilibrium- 
product- species(def inition as for AC). 

ASMl, . 
ASM4 

CHEM 


Temporary storage for coefficients AS. 

ASTTB 

CREKO 

Array 

Molecular symbol for snecies. 

ASl 

BLOCK 

DATA 

Array 

Polynomial coefficients for concentrat- 
ion of equilibrium-product-species 
over enthalpy range H>1IN ^ HD IV. For 

species J, at pressure IP*1.0E5, 

an (m.) = t AS1(I, J, IP)*H**(I-1). 

1=1 

AT 

CREKO 

Array 

Atomic symbol for species. 

ATOM 

CREKO 

Array 

For element K, 

ATOM (1,K) = Atomic s 3 nnboli 
ATOM (2, K) = Atomic weight; 

ATOM (3,K) = Valence or oxidation state. 


2Q7 



NAME 


TTPE 

MEANING 

B 

COMP 

Array 

Finite-difference coefficient. 

BC08 

START 


Specific heat coefficient for C02 . 

BEE 

WALL 


Exponent. 

BFRAC 

MAIN 


Estimated pressure gradient limited to 
BFRAC <^pu^)/Ax; BFRAC ^0.5. 

BFTT 

START 


Specific heat coefficient for H20 . 

BIG 

BLOCK 

DATA 


A large number. 

BH20 

START 


Specific heat coefficient for H20 . 

BLANK 

OUTPUT , 
CREKO 


Alphanumeric storage for 4 blank spaces. 

BLANK 

PLOTS 


A printer space. 

BLE 

:coMP 


LTDMA coefficient. 

BMIX 

START 


Specific heat coefficient for gas mixture 

. 

BN?. 

START 


Specific heat coefficient for N2 . 

BOM 

COMP 

Array 

Omega-width of a cell. 

BOX 

START 


Specific heat coefficient for oxygen. 


208 





NAME 

LOCATION 

TYPE 

MEANING 

BP 

WALL 


Big DSi, stream function coefficient. 

BPE 

COMP 


Big psi at E boundary. 

BPLABT 

WALL 


Last value of BP. 

BPSAVE 

COMP 


Value of BP saved at IX=ISTRT, 

PREX 

BLOCK 

DATA 

Array 

Duct wall constant. 

Bsa 

BLOCK 

DATA 

Array 

As AS 1, but over enthalpy range HD IV < 
H eHMAX. 

BX 

CREKO 

Array 

Arrhenius pre- exponential factor for 
forward reaction. 

BX2 

CREKO 

Array 

Arrhenius pre- exponential factor for 
backward reaction. 

C 

COMP 

Array 

Finite-difference coefficient. 

CFH20 

START 


Mass of H20 produced per unit mass of 
fuel burnt. 

CLF 

COMP 

Array 

LTDMA Coefficient. 

CMIX 

START 


Specific heat of mixture. 

CMIXB 

START 


Specific heat of B stream. 
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NAME 


TYPE 

MEANING 

CMIXC 

START 


Specific heat of C stream. 

CONVG 

SPECE 


Parameter to indicate convergence of 
chemical-kinetics solution. 

CO2H20 

START 


Mass ratio of C02 to H20 produced by 
complete oxidation of fuel. 

CORK 

COJIP 


LTDMA corrections. 

CPMIX 

CHEM 


Specific heat of mixture. 

CPR 

CHEM 


Snecific heat of equilibrium-product- 
species. 

GPSUM 

HCPS 


Specific heat of mixture. 

CREX 

BLOCK 

DATA 

Array 

Duct wall constant. 

CROSS 

PLOTS 


A printer symbol. 

D 

COMP 

Array 

Finite-difference coefficient. 

PA 

MAIN 


Area increment. 

PADP 

MAIN 

• ' 

Rate of change of area with pressure. 

DAMIN 

BLOCK 

DATA 

— 

Maximum permissible non-dimensional area 
error. 
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NAME 


.OCATION 


TYPE 


MEANING 


DATA 

OTTTPTTT 

Array 

DATA 

CREKO 

Array 

DAI 

MAIN 


DA? 

MAIN 


DEBTTG 

CHEM 


DFNOM 

START 


DIF 

PHYS 

Array 

DIPTI 

PHYS 

Array 

DIGIT 

PLOTS 


DLF 

C051P 

Array 

DOT 

PLOTS 


DP 

MAIN 


DPDX 

MAIN 



Temporary storage before printout. 

Temporary storage for reading in data. 

Non-dimensional area error before 
correction. 

Non-dimensional area error after 
correction. 

Trigger for diagnostic output of 
chemical-kinetics calculations. 

Temporarily stored value. 

Diffusion quantity. 

Diffusion quantity related to velocity. 
Number printed beside x-axis, 

LTDMA coefficient. 

A printer symbol. 

Pressure increment. 

Pressure gradient. 





NAME 


TYPE 


MEANING 






NAME 


.OCATION 


TYPE 


MEANING 


FMUD PHYS Array Effective downstream viscosity. 


EMIINTT PHYS 


Laminar viscosity at upstream wall 
temperature. 


EMTITJ PHYS Array Effective upstream viscosity. 


EMTJl OUTPUT 


Laminar viscosity at inlet. 


CHEM 


Total convective and diffusive mass 
inflow to a cell. 


ENTH MAIN, 
CHEM, 
START 


Enthalny . 


ENTFB MAIN 


Enthalpy of B-stream. 


ENTEG MAIN 


Enthalpy of C-stream. 


EPSF BLOCK 
DATA 


Convergence criterion for dependent 
variables u, h, f, and 


EPSS BLOCK 
DATA 


Convergence Criterion for species 
concentrations. 


EPST BLOCK 
DATA 


Convergence criterion for temperature. 


EPSID BLOCK 
DATA 


Convergence criterion for one-dimensio- 
nal solution. 
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NAME 


TYPE 

MEANING 

EH20 

START 


• 

Mass fraction of H2D . 

FJF 

PHYS 


Mass friction of fuel. 

FJP 

CHEM, 

START 


Mixture fraction. 

FLOB 

MAIN 


Flow rate in B- stream. 

■ 

FLOC 

MAIN 


Flow rate in C-stream, 

FLUX 

OUTPUT 

Array 

Convective flux of general variable . 

FMAX 

COMP 


Temporarily stored quantity. 

FMIN 

BLOCK 

DATA 


Smallest value of F for which the 
convergence criterion is applied. 

FN2 

START, 

CKEM 

• 

Mass fraction of N2 . 

FOLD 

START 


Previous iteration value of F. 

FOX 

START, 

MAIN 


Mass fraction of oxygen. 

FOXBRN 

START 


Mass fraction of oxygen in fully-burnt 
gas. 

FOXUNB 

START 


Mass fraction of oxygen in unburnt gas. 

F02 

CHFM 


Mass fraction of oxygen. 







NAME 


TTPE 


MEANING 


EPR 

CHEM, 

PHYS, 

START 


Mass fraction of equilibrium-product- 
sp ecies. 

FPRUNB 

START 


Mass fraction of products in unburnt gas. 

ERE 

WALL 


EF * Reynolds number • 

FS 

MAIN 

Array 

Mass fractions of species. 

FSII 

CHEM 


Temporary storage for FS. 

FSTOIC 

?4AIN 


Stoichiometric mixture fraction. 

FSTOIM 

MAIN 


1.0 - FSTOIC- 

FTE 

START 


Temperature. 

FTJ 

CHEM , 
MAIN 


Upstream value of F. 

FUB 

BLOCK 

DATA 


Fuel mass-fraction in B-stream. 

FUBRN 

START 


Fuel mass-fraction in fully-burnt gas. 

FUBRNT 

PHYS 


Fuel mass-fraction in fully-burnt gas * 

FDC 

BLOCK 

DATA 


Fuel mass-fraction in C-stream . 

FTJEX 

PFY^ 

START 


Excess fuel- 





NAME 


TYPE 

MEANING 

EUTEST 

BLOCK 

DATA 


Convergence crj.terion for fuel mass- 
fraction. 

FUTJNB 

START 


Fuel mass- fraction in unburnt gas. 

FWALL 

BLOCK 

DATA 

Array 

Duct-wall-temnerature constant. 

GAMMA 

MAIN 


Specific heat ratio. 

GAMPRS 

MAIN 


Reciprocal of GA^^MA times pressure. 

GASCON 

BLOCK 

DATA 


Universal gas constant. 

GAZ 

CREKO 


Alphanumeric storage for'G'(for gas)* 

GF 

CREKO 


. 

Temporarily stored quantity. 

F 

BLOCK 

DATA 

. 

Recovery factor. 

HD IFF 

CFEM 


Reciprocal of (PMAX-HMIN). 

HD IV 

BLOCK 

DATA 


Intermediate enthalpy value for the 
coefficients ASl and BSl. 

HFU 

START 


Heat of combustion of fuel. 

FMAX 

BLOCK 

DATA 


Maximum enthalpy value for the 
coefficients ASl and RSI . 

HMIN 

BLOCK 

DATA 


Minimum enthaluy value for the 
coefficients ASl and BSl , 







NAME 


TYPE 


MEANING 


HMIX 

HPEI 

FPR 

FSUM 

HWALL 

FO 

I 



CHEM 

COMP 

CHEM 

MAIN 

START 

MAIN 


Array 


Mixture enthalpy. 

0..'5 * PSIE . 

Enthalpy of eauilibriura- product- species. 
Enthalpy of mixture. 

Wall enthalpy. 

Enthalpy of species. 

Index. 


IBEX 


MAIN 


Array 


Index for E boundary condition; 
= 1, boundary value specified; 

= 2, boundary flux specified. 


ID 


CEEKO 


ID (K,J) is the species index number 
of species K in reaction J. 


IDASE 


COMP 


Index in back- substitution for TDMA. 


IDCO 


BLOCK 

DATA 


Index for CO. 


IDC02 


BLOCK 

DATA 


Index for CP2. 


IDEBIIG 


BLOCK 

DATA 


Index for chemical-kinetics 
output ; 

=1 , no output; 


-2j output obtained. 


diagnostic 



NAME 


TYPE 

MEANING 

IDF 

■BLOCK 

DATA 


Index for fuel . 

IDH 

BLOCK 

DATA 


Index for H. 

IDH2 

BLOCK 

DATA 


Index for H2. 

IDF20 

BLOCK 

DATA 


Index for H20. 

IDIME 

PLOTS 


Dimension for arrays. 

ID IV 

MAIN 


I of division between B and C streams. 

IDN 

BLOCK 

DATA 


Index for N. 

IDNQ 

BLOCK 

DATA 


Index for NO. 

IDN02 

BLOCK 

DATA 


Index for N02. 

IDN2 

BLOCK 

DATA 


Index for N2 . 

IDN20 

BLOCK 

DATA 


Index for N20 . 

IDO 

BLOCK 

DATA 


Index for 0 . 

IDOH 

BLOCK 

DATA 


Index for OH. 

ID02 

BLOCK 

DATA 


Index for 02 . 






BLOCK 

DATA 


Index for last x-station in iterative 
sweep . 


lEOlJlL 


BLOCK 

DATA 


=0, equilibrium concentrations not 
obtained. 

=1, equilibrium concentrations obtained, 


IE IN 


COf^P 


Index triggering finish of integration, 


IHCPS main 


Index to control calculation of 
thermodynamic properties. 


OUTPUT 


Number of x-stations in longitudinal 
plot. 


ILDIM OUTPUT 


Variable dimension for longitudinal 
plot . 


IMAT SPECS 


Number of rows in Newton-Raphson 
correction matrix. 


PLOTS 


Index in PLOT, 


IMAX BLOCK 
DATA 


Maximum index number for species 
concentrations. 


IMAX PLOTS 


Number of values to be plotted. 


INERT BLOCK 
DATA 

INSAVE MAIN 


Indicator of chemically-inert 
flow: = 1, Chemically inert; 

= 2, Chemically reacting. 
Temporarily stored value of INERT • 
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NAME 


TYPE 

MEANING 

IP 

CHEM 


Integer value ofIPP, 

IPLOT 

BLOCK 

DATA 

Array 

x-locations where cross-stream plot is 
required. 

IPLOTL 

BLOCK 

DATA 


Number of intervals between x-station 
values used for longitudinal plot . 

IPLOTM 

BLOCK 

DATA 


Maximum number of cross-stream plots. 

IPR 

BLOCK 

DATA 


Index number for products. 

IPRINT 

BLOCK 

DATA 


Index to control type of printout 
required. 

IP'l 

CHEM 


IP + 1. 

IRMFX 


Array 

X- location of ESFMAX . 

IRMFY 

COMP ' 

Array 

y-location of RSPMAX . 

IRMTJX 

MAIN . 


x-loaction of RSUMAX . 

IRMITY 

■MAIN 


y-location of RSUMAX , 

I SEC 

MAIN, 

START 


Index to denote section of duct. 

I5LP 

OUTPUT 


Temporarily stored quantity for longitu- 
dinal plot. 





NAME 


TYPE 


MEANING 


I SOLVE 

START 

Array 

Number of iterations after which the 
particular variable is to be solved. 

I SPEC 

BLOCK 

DATA 

Array 

Index to establish correpsondence 
between concentrations stored in F and 
FS arrays. 

ISTEP 

COMP 


Counter of forward steps. 

ISTRT 

BLOCK 

DATA 


Index for first x-station for iterative 
sweep. 

IS■^^P 

BLOCK 

DATA 


Number of iterations after which a 
complete sweep of the flow domain is 
made. 

IT 

HAINj 

CHEM 


Number of iterations on temperature. 

ITDIM 

OUTPUT 

• 

Variable dimension for cross-stream plot. 

ITER 

SPECS 


Number of iterations during chemical- 
kinetics computations. 

I TEST 

BLOCK 

DATA 


Trigger for diagnostic output; 
=1 , no output , 

=2, output obtained. 

ITMAX 

BLOCK 

DATA 


Maximum number of iterations of 
chemical-kinetics computations. 

IX 

CORIP 


Index for x grid location. 
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NAME 


TYPE 

MEANING 

IXD 



IX + 1. 

IXN 

IXW> 

IXNU 


) 

Quantities used for temporary storage. 

IXX 



(IX-1)*N. 

IXXD 

IXXPl 


} 

Used for temporary storage of (IXX+N) • 

IXY 



lY + IXX. 

IXYD 



IXY + N. 

IXYDD 



IXYD + N. 

IXYU 


’ 

IXY _ N . 

IXYU 

IXYl 


) 

Temporarily stored quantities. 

lY 



Index for m- grid location. 

J 



Index, usually associated with dependent 
variable. 

JDBIE 

PLOT 

• 

Dimension for arrays. 

JF 

BLOCK 

DATA 


Index for fuel. 




NAME 


TYPE 

MEANING 

JH 

BLOCK m 

TA 

Index for stagnation enthalpy. 

JJ 

CREKO 


Number of chemical reactions. 

JLDIM 

OTTTPTIT 


Variable dimension for longitudinal plot. 

JMAX 

BLOCK 

DATA 


Maximum index number for variables stored 
in E-array. 

JMAX 

PLOT 


Number of curves to be plotted. 

JN 

BLOCK 

DATA 

■ 

Index for N. 

JNO 

BLOCK 

DATA 


Index for NO. 

JN02 

BLOCK 

DATA 


Index for N02. 

JN20 

BLOCK 

DATA 


Index for N20. 

JOX 

BLOCK 

DATA 

** 

Index for oxygen. 

JP 

BLOCK 

DATA 


Index for mixture fraction. 

JTDIM 

OUTPUT 


Variable dimension for transverse plot. 

JTE 

BLOCK 

DATA 


Index for temperature. 

' ' 

JX 



Index for x-grid location. 

JXJ 



Temporarily stored quantity. 
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NAME 


TYPE 


MEANING 


JXPLOT 

OUTPUT 


Number of x-stations in longitudinal 
plot. 

JXX 



Temporarily stored quantity. 

K 

OUTPUT 


Index. 

EASE 



Index denoting problem . 

KK 

CHEM 


Index. 

KMAT 

SPECE 


IMAT + 1 . 

KNTCS 

BLOCK 

DATA 


=0, chemical-kinetics computations 
supressed; 

=1, chemical-kinetics computations 
performed. 

KOUT 

OUTPUT 


Index during printing of profiles. 

KX 

OUTPUT 


Index during longitudinal plot. 

L 

BLOCK 

DATA 


Number of x grid points. 

LAB 

OUTPUT 

Array 

Labels for cross-stream profiles . 

LABK 

OUTPUT 

Array 

Labels for cross-stream profiles. 

LABKH 

OUTPUT 


Label for enthalpy. 
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LABKR OUTPUT 


Label for density. 


LABKV OUTPUT 


Label for viscosity. 


LABKl OUTPTIT 


Label for radius • 


OUTPUT 

CHEM 


Index . 


COMP 


L-1 . 


COMP 


MAIN 


L+N . 


CHEM 


Index. 


MODE 


CALC 


Type of reaction. 


MODEL BLOCK 
DATA 


Indicator of transport-process type: 
=1, laminar; 

=2, turbulent. 


BLOCK 

DATA 


Number of transverse grid points. 


SPECE 


NS + L 


CREKO 


Index used during input of thermo- 
chemical data • 
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NAME 

LOCATION 

TYPE 

MEANING 

ND 

CREKO 


Index during computation of ID* 

NDAMAX 

BLOCK 

DATA 


Vlaxiraura number of iterations to match 
flow area with duct area. 

NEWPR 

MAIN 

Array 

=1 , Prandtl number equals that at previ- 
ous J ; 

-2, Prandtl numbers are unequal. 

NF 

BLOCK 

DATA 


Number of dependent variables excluding 
u_velocity and pollutant species. 

NFUMAX 

BLOCK 

DATA 


Maximum number of iterations for fuel 
concentration. 

NIT 

START, 

COMP, 

WAI.L 

■ 

Number of iterations. 

NITER 

BLOCK 

DATA 

- 

Number of iterations. 

NITERK 

BLOCK 

DATA 


Number of iterations after which 
chemical-kinetics computations are 
started. 

NITERl 

OUTPUT 


NITER +1. 

WITMAX 

BLOCK 

DATA 


Maximum number of iterations. 

NLM 

CREKO 


Number of elements . 

NMl 

cor-tp 


N - 1. 






COMP. 


N - 5?. 


COMP 


N - 3 


START, 

SPECE 


Index. 


NPLOTC BLOCK 
DATA 


Number of steps after which cross-stream 
plots are to be printed. 


NPLOTL BLOCK 
DATA 


Number of iterations after which 
longitudinal plots are to be printed. 


NPRINT BLOCK 
DATA 


NPROE I BLOCK 
! DATA 


Number of iterations after which print- 
out is obtained, regardless of converg- 
ence. 

Number of steps after which profiles are 
printed . 


NSEl 


BLOCK 

DATA 

BLOCK 

DATA 


Number of chemical species. 


Index for first eq.uilibrium-product-spec- 


NSE2 


BLOCK 

DATA 


Index for the last equilibrium-product- 
species. 


NSE3 


OUTPUT 


NSEl + 4. 


NSE4 


OUTPUT 


NSE3 + 1. 






NAME 


TYPE 

MEANING 

VfBK 

BLOCK 

DATA 


Number of species whose concentrations 
are kinetically determined. 

NSKl 

CALC 


NSK + I 

NSM 

CREKO 


NS + I 

NSTAT 

BLOCK 

DATA 


Number of stations after which profiles 
are to be printed. 

NSl 

NS2 

MAIN 

MAIN 

}: 

First and last species numbers for 
computation of thermodynamic properties. 

NTMAX 

BLOCK 

DATA 


Maximum number of iterations on temper- 
ature. 

NYL 

OUTPUT 

■ - 

Number of variables for longixudinal 
plot. 

NYT 

OUTPUT 


Number of variables for transverse plot. 

NIDMAX 

BLOCK 

DATA 


Maximum number of iterations in 1^-D 
computations. 

NIDPE 

BLOCK 
DATA . 


Number of iterations after which 
printout of 1-D solution is obtained. 

OM 

BLOCK 
DATi . 

Array 

w . 

OMDIP 

COMP 

Array 

w - difference. 








NAME 

■Hi 

OMDIV 

MAIN 

OME 

COMP 

OMI 

COMP 

OMINT ^ ; 

COIIP 

OXB 

BLOCK 


DATA 

0X0 

BLOCK 

DATA 

P 

COMP 

PA 

' CHEM 

PDGSCN 

MAIN, 

CHEM 

PFRAC 

BLOCK 
i DATA 

PHAZ 

CREKO 

PHI 

CHEM 


TYPE 


Array 


MEANING 

0 ) for division between streams, 
w difference in the E boundary. 

0 ) difference in the I boundary. 

0 ) for cell interfaces. 

Oxygen mass-fraction in B- stream. 

Oxygen mass- fraction in C-stream. 

PSIE/DX . 

Pressure. 

Pressure 7 Gas constant. 

Pressure corrections during matching of 
flow and duct areas limited to PFRAC * 
puM.'PFRAC <0.5. 

Phase of species for which thermochemic- 
al data is read. 

Temporary storage for (f- ^st ^ st^v- 

Jayatillaka's P function (Ref. 10). j 


PJAY 


WALL 





NAME 

LOCATION 

TYPE 

MEANINCr 

PMAX 

BLOCK 

DATA 


Maximum pressure for which polynomial 
coefficients AC, AH, AS, ASl, BSl are 
defined. 

PM IN 

BLOCK 

DATA 


Minimum pressure for which polynomial 
coefficients AC, AH, AS, ASl, BSl are 
■defined. 

POM 

COMP 

Array 

P* BOM. 

PP 

CHEM 


Pressure * l.OE-5. 

PR 

MAIir 

Array 

Pressure. 

PRB 

MAIN, 

START 


Mass fractions of (products tN2) in 
B-streara. 

PRC 

MAIN, 

START 


Mass fractions of (products +N2) in 
C- St ream. 

PRCON 

PHYS, 

CHEM 


Temporary storage for reciprocal Prandtl 
number. 

PRCONl 

PHYS 


Temporarily stored quantity. 

PRBEXP 

BLOCK 

DATA 


Arrhenius pre- exponential factor. 

PRESS 

BLOCK 

DATA 


Pressure. 

PRESSD 

OUTPUT 

• 

Downstream pressure, expressed as 

PRESS! 

MAIN, 

OUTPUT 


Inlet pressure. 



NAME 


TYPE 

MEANING 

PEL 

MAIN 

Array 

Laminar Prandtl number. 

PRLAM 

BLOCK 

DATA 


Laminar Prandtl number. 

PRLT 

MAIN 

Array 

Array to store laminar and turbulent 
Prandtl numbers. 

PRRAT 

WALL, 

PHYS, 

CHEM 

Array 

Prandtl number ratio. 

PRTURB 

BLOCK 

DATA 


Turbulent Prandtl number. 

PS IE 

MAIN 


^E. 

PSIEI2 

START, 

PHYS 


0.12 * PSIE • 

R 

COMP 

Array 

Radius . 

RATIO 

START 


Temporarily stored quantity, . 

RDIV 

MAIN 


R of division between B and C streams. 

EDIVSQ 

MAIN 


RniV**2- 

RE 

CO?iP 


Width of half interval close to E 
boundary . 

REG I 

COMP 


Reciprocal of density-velocity product. 
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NAME 


TYPE 


MEANING 


LOCATION 


RECIMI 

RECTK 

RESIDTI 


COMP 

CALC 

CO^IP 


Array 


Temporary storage for RECI . 


Reciprocal of TK. 

Change in general variable 6 from one 
iteration to next. 


RFStl 


MAIN 


REXD 

REXO 

REXOSP 

REY 

RHO 

RHOB 

RHOC 

RHOEAC 

RHOP 


MAIN 

MAIN 

MAIN 

WALL 

MAIN 

MAIN 

MAIN 

MAIN 

CALC 


Array 


Array 


Change in u-velocity from one iteration 
to next. 

Duct Radius.' . 

Duct radius at inlet. 

REXO** 2 . 

Reynolds number. 

Density. 

Density of B-stream. 

Density of C-streara. 

Density factor. 


Density . 





NAME 

RNOEEE 

RHOl 

RH02 

RHSM 

RHSMP 

RHSMSq 

RHSQ 

RI 

RIP 

RIPP 

RREF 

RRUREF 

RSFMAX 

RSMW 
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MEANING 


RSTJMAX MAIN 


Maximum normalised change of u-velocity 
from one iteration to next. 


•COMP Array Density-velocity product. 


RTTREE WALL 


Reference value of RU. 


RVRS CREKO 


Alphanumeric storage for 'REVE’ 


CALC 


Forward reaction rate. 


CALC 


Backward reaction rate . 


WALL 


Friction-factor of Prandtl number 


WALL 


Average value of S. 


SHALE WALL 


Sauare root of S. 


SHALE START 


Square root of S. 


SHALED PHYS 


Downstream value of SHALE. 


SHALFU PHY5 


TTpstream value of SHALE. 


SHJILEI WALL 


Square root of S. 
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NAME 


TYPE 

MEANING 

SI 

PHYS 

Array 

Source term. 

SIP 

PHYS 

Array 

Second component of source term. 

SLOG 

WALL 


Local value of S * 

SM 

CREXO 


Reciprocal of mean molecular weight 
of mixture. 

sms 

CREKO 

Array 

Molecular weight of species. 

SPl 

CKEM 


STOICH + 1.0 . 

SqAREA 

START 


Square root of half the duct area 
(=radius ). 

SQIX 

PHYS 


SQAREA at upstream station. 

SOIXD 

PHYS 


SOAREA at downstream station. 

SRE 

WALL 


S* Reynolds number. 

STOICH 

BLOCK 

DATA 


Stoichiometric ratio. 

STORE 

STOREl 

STORE2 


} 

tJs^d for temporarily stored 
quantities. 

STJMA 

PHYS 



Summation (over cross-stream points) 
of downstream diffusion coefficients. 



23B 





NAME 


TYPE 

MEANING 

STTMB 

PHYS 


SUMA for upstream station. 


SIJMX 

CREKO 


Sura of X * s* • 


SUMY 

CREKO 


Sum of y's* • 


SUMl 

CREKO 


Temporarily stored quantity. 


SO 

HCPS 

Array 

One-atmosphere, ideal gas ehtrony 
species. 

of 

SI 

CHEM 

Array 

Species mole-numbers averaged over 
neighboring nodes.- 

four 

Sll 

■WALL 


Stored value of SAV . 


S2 

CHEM 

Array 

Species mole-number. 


S22 

WALL 


Stored value of RRUREF. 


S3 

WALL 


Stored value of UREF , 


S4 

WALL 


Stored value of REY . 


T 

WALL 


Temporarily stored value. 


T 

START, 

COMP 


Temporarily stored value . 



* X and y are used for temporary storage of some quantities in 

subroutine CREKO , 237 




NAME 


TYPE 

MEANING 

TACT 

CREKO 

Array 

Activation temperature (E/R) for forward 
reaction. 

TACT2 

CREKO 

Array 

Acti^sation temperature (E/R) for 
backward reaction. 

TATJE 

MAIN 


Shear stress at E boundary. 

TAUSAV 

MAIN 


Saved value at TATJE at IX=ISTRT; 

TB 

BLOCK 

DATA 


Temperature of B- stream. 

TBRN 

START 


Temperature of fully burnt gas. 

TC 

BLOCK ‘ 
DATA 


Temperature of C- stream. 

TDIFF 

START 


Temporarily stored quantity. 

TE 

COMP 

- 

Transport coefficient at E boundary 
Cu-veiocitv) . 

TEE 

COMP 


Transport coefficient at E boundary 
(general variable (ji). 

TEN 

CREKO 

Array 

Exponent on temperature in forward 
reaction rate expression. 

TENLN 

CREKO 


9 ^ (10) . 

TENS 

CREKO 

Array 

Exponent on temperature in backward 
reaction rate expression. 
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TERM START 



Temporarily stored quantity. 


THIRD 


CREKO, 

bUTPTTT 


Alphanumeric storage for 'M' (third 
body in chemical reaction). 


TERM CREKO 


Alphanumeric storage for 'THER' 


TINY BLOCK 
DATA 


A small number. 


TINYK BLOCK 
DATA 


A small number for chemical-kinetics 
calculations. 


CHEM 


Temperature. 


TKl . . HCPS 
TK5 


Temporarily stored q_uantities. 


CREKO 


(temperature) . 


TMAX 


BLOCK 

'data 


Maximum temperature in the calculations, 


TMIN 


BLOCK 

DATA 


Minimum temperature in the calculations 


CREKO 


TOTiporarily stored quantity. 


CALC 


R1 - R2. 


TM2. . HCPS 
TM5 


Temporarily stored quantities. 


TNY BLOCK 
DATA 


In (TINYK). 
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NAME 


TYPE 

MEANING 

. TSTl 

SPECE 


Temporarily stored truant it • 

TUNB 

START 


Unburnt gas temperature. 

TW 

START 


Wall temperature. 

T1 

START, 

PHYS 


Temporarily stored quantity 
(= PREEXP*PRESS**2)- 

T1 

CREKO 

1 

Quantities used during input of 
thermo chemical data. 

T2 

CREKO 

1 


U 

MAIN 

Array 

Longitudinal velocity. 

UB 

BLOCK 

DATA 


Velocity of B -stream. 

UBAR 

OUTPUT 


Average velocity . 

TIC 

BLOCK 

DATA 


Velocity of C-stream. 

TIBDSQ 

PHYS 


Square of UDD (= velocity downstream 
of D location) . 

TIBSQ 

PPIYS 


Square of UD (=velocity at downstream* 
D, location). 

TJFLT.JX 

OUTPUT 


Convective flux of momentum. 

tJREE 

WALL 


Reference veTocitv. . .. 
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NAME 


TYPE 


MEANING 


TJSQ 

USOP 

UTI 

VISPU 

VISMIX 

VI SOX 

VISPR 

vinx 

VREF 

TO 

TO 

\VMTX 

X 

X 

X 



PHYS Temporarily stored value of USQ* 

MAIN Upstream value of TJ • 


BLOCK Viscosity constant of fuel. 

DATA 

BLOCK Viscosity constant of mixture* 

DATA 

BLOCK Viscosity constant of oxygen. 

DATA 

BLOCK Viscosity constant of product. 

DATA 

MAIN Specific voliome of mixture* 


WALL Reference viscosity. 

MAIN Reciprocal molecular weight of B- stream* 

MAIN Reciprocal molecular weight of C-stream* 

MAIN Molecular weight of mixture* 

COMA Array Longitudinal distance x* 

PLOTS Array Abscissa x in PLOT. 

CALC Array Corrections in chemical-kinetics 

. . '1 calculations. .. . * . 
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NAME 

LOCATION 

TYPE 

MEANING 

XBAR 

CREKO 


Average value of X . 


XD 

MAIN 


Downstream distance. 


XDIF 

COMP 

Array 

x-difference . 


XJX 

MAIN 


Temporary storage for 

X(JX). 

XLAXIS ■ 

OUTPUT 


Label for abscissa in 

longitudinal plot. 

XLPLOT 

OUTPUT 


Downstream distance array for longitudin- 
al plot. 

XMAX 

CREKO 


Maximum x-value • 


XMAX 

PLOTS 


Maximum x in PLOT. 


XMIN 

CREKO 


Minimum x value • 


XMIN 

PLOTS 


Minimum x in PLOT . 


xs 

COMP 

Array 

Width of cell in x direction • 

XTAXIS 

OUTPUT 


Label for abscissa in 

cross- stream PLOT • 

XTPLOT 

OUTPUT 

Array 

Cross-stream distance 
transverse PLOT. 

array for 
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NAME 


TYPE 


MEANING 


XU 

CO-MP 

! 

xo 

BLOCK 

DATA 

Array 

•Y 

SPECK 1 

Array 

Y 

PLOTS 

Array 

YAXISL 

OUTPUT 

Array 

1 

YAXISl ' 

j 

i 

OUTPUT 

Array 

YAXIS2 ^ 

OUTPUT 

Afray 

YAXIS3 

OUTPUT 

Array 

YBAR 

CREKO 


YDR 

PHYS 


YLAXIS 

OUTPUT 

Array 

YLPLOT 

OUTPUT 

Array 

YREF 

WALL 


YTPLOT 

: OUTPUT 

Array 


- 



Upstream distance. 

x-location of start of a duct-section. 
Logarithms of species mole- numbers. 
Plottdd ordinate values. 

Labels for plotted values. 

Labels for plotted values (PLOT !)■ 
Labels for plotted values (PLOT 2) ■ 
Labels for plotted values (PLOT 3) . 
Average value of Y . 
y divided by R(N) . 

"iiabels for ordinate of longitudinal plot. 
Values to be plotted (longitudinal plot) 
Reference distance . 

Values to be plotted (cross-stream plot) 





NAME 

Z 

ZETA 

ZKII. , . 
ZK5I 



CREKO 

START 

HCPS 


TYPE MEANING 

rray Coefficients for calculation of thermo- 
chemical data. 

Temporarily stored quantity. 

Temporarily stoi'ed quantities. 





APPENDIX 


D 


A PARTIAL LISTING OF THE OUTPUT FROM THE 
NASCQ PROGRAM 



« i* # 


* # 
JL _PntDICT10M...or. MYDRODyNAKICS.flNO *_ 

.# CHCHISTRV OF CONFINCD HElHANE-AlR 


-FLAMES With attention To formation 

aF__N I J RO OEM. .0 .V J 0 E S ft, 

; 


THE NASCO COMPUTER PROGRAM 


PREPARED DY 


CONCENTRATION HEAT AND MOMENTUM LTD- 



NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 


NASA LEWIS research CENTER 


XONTRACT .has 3M59itP 


APRIL 


RESULTS FO R TEST CASE JL — 

..._S.I -_UN ITS ART USED THROUGHOUT 












flow' coNniTidfis 

TURnULCNT, HODCLr? 

cmfh 1 FMrVJL.?! ACIJ ng. inep t =2 


GEOMriRY 

Radius of fuel jet at iniet 3.b26-o3 

RAG I US“oF DUCT AT~InVe'T 1,Oo6-D2 

” t of A L ' length' of"' duct 73011 7dd^ 


DUCT MALL CONSTANTS - 


I ■■ Xb ' AREX BREX * CREX 


1 d.olba iil^coo *‘02 b.ooo o-dod 

2 6 . 0 aQ“Qi l.DCD -02 ?,COD-D| 0 •□ 00 „ 

3 T.ODD^l 3 . 0 D 0 -O 2 b.DDD 0 .DDO 


iNllCT COAFTTICNS 

V ElOCI TY ^ or £UE L STR EAM .r_UB 6.D 00-Q 1 

VELOCITY OF MR STREAM^ UC 6 »DQ0->00 

_T EkFERATUrE o f fu el STREAHf TB 2.9AD+D2 

T E E RA T y A TR ST RE A « *_IC 6 • 3M±01 

inlet pres s ure, press A .QS3*05 

N 0 L DS NUK PER 5j, 59g-»a 3 

0 V L L EC y I VAL CE RA T 1 Oj__E_C R AT 0 DD’-ai 

TOTAL HASS FLOW RATC» PSIE ttt62B~0t< 


BOUNDARY CONDITIONS 


HALL temperature CONSTANTS - 

__ OHftlX ^EHALL FMALL 





.1 8,in0+02 . . 5,DD0*a? . 0*000 

? l.IlQ4>a5 0*000 0.000 

3 1-110*03 -5.000*02 0*000 


GRID. 


OHEGfl GRID - 
C.QOO 


2.979-D3 


3 *ao 0-01 5. 500-01 


.S.*958rD.5_ 

7*500-01 


,B*9.37.rO_3_ 

l.OOOfOO 


,3..64LrJD2 2,..'iD.QzQJL 


5( GRID -. .. 
0.0 CO 


_6.DOO-Ol„ 

6.600-01 
6.90D-D1 
1 .000*00 


1. 000-01 2.000-01 

_6«0 5Dj:Q 1 6 .1 0.B ,rP, 1_ 

6.350-01 6.900-01 

6.650-01 6, 700-01., 

C. 950-01 7.000-01 

. 1-lPO+OO 1 .200.100. 


3.000-01 
_6..1 5c.“01. 
6,950-01 
6.750-01, 
7.500-01 
1-25D+.00_ 


9.000-nl 
6.200rOL 
6. 500-01 
6.800-01. 
a. ODD -01 
1,3G0*0D_ 


5. 000- 01 
„6 .2 5 0-01. 

6. 550-01 
. 6.850rOl_ 

9.000- 0!. 


r'oLYNoVj AL CCcrrJCIENlS FOR THfVHoOVNAHlC PROPERTirs^ 


i4 ccicrr iciCNTS 

f t7tK,JTl ) 

,J=1,71*K = 1 

,2> rOR each SPCClES I 

m 








N 


1.749-Dl 

7,612-06 

-5.330-09 

1.342-12 

-7.325-17 

4 -006+03 


3-l7fa-Cl 

1.787-01 

-1 .556-06 

3.S7n-09 

-4.032-12 

1.499-15 


4.005 + 0 3 

2.975-01 





NO 

1 .063-01 

4.460-05 

-1.763-OQ 

3.197-12 

-2.161-16 

3.275+02 


2.24H-U1 

1 .34P-DI 

-1 .139-04 

2.660-07 

-2, 038-10 

5.305-19 


3.240*02 

9. 990 -02 





NO 2 








1.D05-C1 

5.491-05 

-2 .306-08 

4.321-12 

-3. □00-16 

4.978*01 


?. 89fa“Q7 

7.518-02 

4 .488-05 

1. 453-07 

-2.077-10 

7.868-14 


6.119*01 

1 .807-01 





N20 

1.D75-D1 

6.420-05 

-2.626-Ofi 

4.P31-12 

-3.3n9-lb 

1.854+02 


-3.897-C2 

5,950-02 

1.964-04 

-1.548-07 

5.061-11 

-1,832-15 


1-990*02 

2.096-01 





N2 


l.U 34-01 

5.410-05 

-2.043-oP 

3*563-12 

-2-328-16 

-3.234+01 


2.199-ni 

1. 312-01 

-4.313-05 

8.296-ne 

-2.257-11 

-8,059-15 


-3.7€B+01 

P.41S-D2 





CH4 

9.367-02 

6.493-04 

-2.442-07 

4.225-11 

-2.760-15 

-6.220+02 


6,674-01 

2. 385-01 

-.2.480-04 

1.531-06 

-1.417-09 

4.340-13 


-6,324*02 

5.404-02 





02 


1.1 32-01 

?. 301-05 

-6.142-09 

1.131-12 

-9 .046-17 

-3. 756+01 


1.130-01 

1.133-Dl 

-5.87o-oS 

2.205-0? 

-2.114-10 

6.736-14 


-3.274*01 

1.345-01 





■ CO 








1.D6E-G1 

5.3lfe“0S 

-2.067-08 

3.700-12 

-2.476-16 

-5.086*02 


2.266-01 

1 .325-01 

-5.780-05 

1.3l'3-07 

-7.254-11 

8-552-15 


-5.125*02 

1.055-01 





CO 2 


1. 014-01 

7,040-05 

-2.816-08 

5.167-12 

-3.528-16 

-1-115+03 


-2.241-02 

F. 455-02 

1 .985-04 

-1.501-n7 


1.438-17 


-1.099*03 

2. 203-01 





H 

2.4 eO*OD 

0,000 

D .000 

□ .□□0 

0.000 

2,527+04 


-4.565-CI 

2.480*00 

0.000 

0.000 

0.000 

0.000 


2.527*04 

-4.565-01 


- 



H2 








1,538*00 

2.536-04 

2 ,61 1 -na 

-1-732-11 

1-833-15 

-4.352*02 
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-9-737-ni 1,517+ClO 1.328-03 -2.0S2-O6 2.739-09 -8.990-13 

-9*905'»02. 

B20 .. _ ... .... ... ... . 

1.508-01 1,635-04 -4.453-Ofl S. 677-12 -2,691-16 -1.660+03 

3.601T01 Z.Z69-D1 -6.J^3.rD5 2«3DS=Q7-- --1.64 5-1Q. 4.4eQ=-14 

-1,681+03 -1.791-02 


j. 589-01. -1.722-06 ,-1.939“10 . 2,845-13 .-2,730-17 .. 1,827+03 

3,075-01 I, 842-01 -1-024-04 1.513-07 -1,002-10 2.432-14 

U5-22+L0 3 l»A53-ai : 

~ ^iTTn-oT” 5,T4T-CS ’-ni4 3~0a~ 8,08^-13 

3.2DO-Ol_.„,2,2S6r01_jr6.33.8.r05 5.6,9.3-08 

2,141+02 2.903-02 




RCACTIO^J HCCH/iNlSH 




1. N 

« 

NO 


• 

N2 

<* 

0 


2. N 

4 

02 



NO 

* 

0 


Bmnm 

4 

N 



H 

* 

NO 


3»_Ji _ 

4 

N20. 


— 

PH_ 

* 

_N2. 


5. N20 

4 

0 


z 

NO 

* 

NO 


b. N20 

4 



— 

N2 


„0— 

t.,M 

7. N 

4 

0 

* M 

n 

NO 

+ 


■» H 

P. NO? 

4 

.0 _ 


z, 

NO. 

♦ 

_02 


9, NO? 

4 


”*”h 


0 

■* 

NO 

*T « 


RATE CONSTANT PARAMETERS 

^R ATE CONSTANT _= A«T««B*FXP J-TACT/T)„ t.T~ TEMPER ATURtl 


FORWARD RATE BACKWARD RATE 


1 . 

A 

1 .5C0*1D 

8 

□ .ODD 

TACT 

O.ODD 

A 

b. 753+10 

B 

D .000 

TACT 

3.786+04 


2 . 

5 .998 *06 

1, 000+00 

1.172+03 

5 .858 + 09 

O.DOO 

2.DR7+Q4 ' 


3. 

5 .99e*D8 

s.onn-Di 

‘t.32P*03 

I.1D2+11 

n.ono 

..2l*89e*D4 


<1. 

7 .998+10 

G.ODO 

7. 553+03 

3.842+09 

D.OOO 

4 .047+04 


S. 

I .OOD+ll 

0.000 

1. 500+04 

?.8'>5+09 

D.OOO 

3.422+04 


b. 

1 .COC+11 

O.ODD 

?. 518+04 

2.676*06 

O.ODD 

6.S73+D 3 


7, 

b . 397+10 

-s.aoD'Oi 

O.CDO 

4.398+12 

D.OOO 

7.488*04 


8, 

I .DOC +10 

O.ODD 

3.00D+02 

3 .187*09 

□ .000 

2. 393*04 


9. 

1 .099< 13 

0.000 

3,300+04 

1.533+08 

0.000 

-2.95Q+G3 



«>### 







moTL - THE MAXIMUM CHANGES IN ThE FIELD VALUES OF 

U-VELOcIlVf STAGNATION EMhAlPY, MIXTURE FRACTION, ..AND^AjS.S 

FRACTION or L'NSUPNT FUEL BETWEEN SUCCESSIVE ITERATICNS ARE 
PRINTED AT EACH ITERATION. THeSE VALUES AR£ COMPUTED AS TH E 
HAVIMUM or AFStCURBENT VALUE - PKEUTCUS VALUE J /CURRENT VALUE. 

THIS IS^DGNE IF THE CURRENT _ VaL UE T S gRFATER.THAN l.D-OA . 

THE FOLLCWINE S'y‘'BCES DENOTE THE MAXIMUM CHANCRES 

RSUKAX FOR U-VELOCITY , 

RSFHAXIJ) FOR VARIABLE J, 

for stagnation enthalpy . ' 

J~2 FOR MIXTURE FRArTION, F, 

^=3 FOR ma ss F R a ction OF UNBu RNT FUEL. 

^^ 4 :* 

«*** »3}r=»=» 
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> 9 ''^ « 4 4 « 4 # * 4 4 « )» « « 


iteration number 20 


s 




V 














\x 


\K 


« ^ aa 4 i> ]> ^ 1^ ^ 3f # * ^ 


+ " ■ TWO-PIMCNSIONAL solution 













«#4 xr 0,000 rx= 1 

OX- 1 . 000-10 


13 


PRrSSO= O.DOO 





J = 

1 2 

3 



UFL UXr 2 .7.2C-0 3_FJ,UX ( J ) = l « 9tiR*Q2 I « 0'l9- n 5 l.OHR-as 

DA1= iJ.'jTb-Dfl DA2= □•□DO 


I 

R 

U VEL 

TEMP 

fuel 

OXYG 

F 


1 

0 .000 

6.000-0 1 

2-990+02 

1.000*00 

n-000 . 

1 .000*00 


2 

1 .319-03 

6.000-01 

2.9*1 D+02 

1.000*00 

□ oOOO 

1 .000+00 


3 

1 ,rB9-C3 

6.000-01 

2.P9C+C2 

1 .000 + 00 

O.DOO 

1 .000+00 


M 

2.277-C3 

6.000-0 1 

7. 990+02 

I .000*00 

O.DOo 

I .OOO+QO 


b 

3.791-03 

6.000*00 

8.IDQ+02 

D.OPO . , 

2.320-01 

o.noo 


b 

5 .69t»-D3 

6.0DO+Q0 

8.100*02 

0.000 

2.320-01 

0.000 


7 

6.701-03 

6.000*00 

8.100*02 

O.DOO 

2.32a-Qi 

r..noD 


8 

7 .797-03 

6 .ODO +00 

B.lCO+02 

O.OOD 

2.320-01 

D.DDO 


9 

_ p.E?o.:j;3 

6.000*00 

P. 100*02 

0-000 

2_.32D-01 

C.Dnrr 



10 1-CDD-D2 O.QDO B. 100*02 O.ODD 2.32D-01 0.000 


I 

1 

R 

D.OOC 

N? 

O.DOO 

RHO 

2.660+00 

vise 

1 .715-05 

ENTLPY 
-9 ,676+06 



2 

1 .319-03 

0.000 

2. 660+00 

1 .715-05 

-9 .676 + 06 



3 

1.869-03 

D.QOD 

2,66 D*OC 

1.715-05 

-9 .676+06 



9 

2.277-03 

0,000 

2.660*00 

1.715-05 

— ^ m & 7& + 0 b 



5 

3.791-03 

7,6fiC-C 1 

1.736+00 

1.715 -OS 

5.38 3+0 5 



6 

5.698-03 

7.660-01 

1,736+00 

1.715-DS 

5.303+05 



7 

6.70 1-03 

7.680 -0 1 

1 ,736+00 

1.715-05 

5,3a3*a5 


A 

8 

7.797-03 

7.6BD-01 

1 ,736+00 

1 .715-05 

5-383*05 



9 

B.F-?C-03 

7.680-01 

1.736+00 

1 .715-05 

5 .383*05 



10 

1.000-02 

7.680-01 

1 ,736*00 

1.715-05 

5.383*05 




CHE HI 

CAL-EQUILT8RIUH SOLUTION 



I 

R 

CG 

C02 

H 

H2 

H20 


1 

0 .000 

0.000 

n.oDo 

0.000 

O.DOO 

_ __D-000 


2 

1 .319-03 

D.ono 

n.300 

D.OOg 

D-DOD 

0.000 


3 

1 ,859-03 

0.000 

0.000 

O.DDD 

0.000 

O.OOO 


9 

2.277-03 

0,000 

0.000 

O.DOO 

O.DOO 

0.000 


5 

3.791-03 

o.oon 

0.300 

D.OOC 

D-000 

O.DOO 


6 

5.696-03 

0.000 

O.DOO 

0.000 

0.000 

0.000 


7 

6 , 70 1 -C 3 

O.QOD 

0,300 

0.000 

□ .ODD 

0 .oon 


I) 

7.79 7-03 

0.000 

O.DDD 

O.OGO 

0.000 

0.000 


9 

8 . 820 -0 3 

0.000 

0.000 

O.OOD 

0.000 

0.000 


lO 

1 -CD0-D2 

0.000 

n.ooo 

0,000 

0 .000 

O.OOO 


I 

R 

0 

OH 

, ■ 




1 

0.000 

0.000 

0.300 





2 

1.319-03 

0.000 

0.000 




a 

3 

1 .859-03 

O.DOO 

D-Onn 





9 

2-277-03 

O.OOD 

p.ooo 






> 
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5 

3.791-C3 

0.000 

n.ooD 



6 

5 .69n-P3 

0.000 .. 

.. D.OOD 

^ 

_ ^ 

7 

6,701-03 

0.000 

n.ooo 



Q 

7.747-03 

D.OOD 

o*3no - - 



9 

fl,P?0-D3 

0.000 

0.000 



0 

1 •DDCI-C2. 

□ .□DO 

. D.nOD. 





CIICHICAL-KIMCTICS 

SOLUTION.,.. 


1.. 

_ P 

N 

NO 

N02 

. N2 

1 

□ .000 

D.OOD 

n.ooo 

0.000 

0.000 

2_ 

1 .314^03- 

0,000 

n.QQQ 

D.OOD 

,0.^000 

3 

1 .859-03 

0.000 

0.000 

0,000 

0.000 

4 

2. 277-03 

0.000 

0.000 . 

o.ono 

0 .000 

5 

3.791-03 

Q.OOO 

0.000 

0,000 

0.000 

6 

5 .698-03 

O.ODO 

.0.300_ . 

0*000. 

0 .000 

7 

6 .701-03 

0.000 

C.DOD 

□ •ODD 

0.000 

B 7.74 7-D3 

itniLiiijiHi 


0-000 

.DjODO 


P .820-03 

0.000 

D.noo 

D.ono 

0.000 

1 *npn-D2 

O.ODO . 

O.GDD 

D.DQD 

. ,._O.QOQ 


x=_ l.DOO-ai IX- 2_ DX=__ 

PPESSD= -i.jiz-05 

J _= I. 

LIFLUX= 2.5E7-03 FlUXtJjr I.99B + 02 
DAlz -3.998-P3 Pft2r 2.n7Ji-D4 


DX= 1. .5Q.Qr01 


l,D99-05 l.Dtl9-Q5 


P 

U VCL 

TFHP 

FUEL 

_ OXXG 

n.ccc 

5.240*00 

6.343*02 

1.720-01 

1.921-01 

5 . 196-04 

5.Z40*-DD_ 

6.343+02 _ 

1.720 -01___. 

1 .921-0_1_ 

7.343-04 

5.301*00 

6,430+02 

1 .609-01 

1 .947-01 

B .98 3-04. 

5.361*00 

_6..51.9+0 2_ 

__l .50 Q-Ql 1..9 72-0.1_ 

i .798-03 

5.831*00 

7-310+02 

6.639-0? 

2.166-01 

4. 59D-03 

5.936*OP_, 

7.B0?*O2_ 

_.2,607-0.2_... 

.2, 259-0 J_. 

5.797-03 

5.e4a+on 

7.951*02 

1.617-02 

2.282-01 

7.029-03 

5.623*00 

E.06 J+02 

.1.049-02 _ 

2.296-Dl, . 

S .327-03 

5.195+00 

8.164*02 

7.263-03 

2.30 3-01 

9. 999-03 

0-000 

A.6JLQ+Q2_ 

_I*26i=DJ 

. Z . 3.0.3=0J_ 


1 .720^01 
J .TZOrOL 
1 -&D9-ai 
-I.5GD-G1_ 
6,640-02 
..2.&07-D2- 
1.617-02 
.1.04 9-0?_ 
7.266-03 


R 

N2 

RHO 

Vise 

CNTLPV_ 

o.coc 

6,359-0 1 

1,949+no 

3.043-04 

-3.552*05 

5,196-04 

6,359-0 1. 

1.949+00 

3.043-04 

-3.5 52*05._ 

7.343-04 

6.444-0 1 

1.938+00 

3.043-04 

-2.972*05 

8 .9P 3-04 

6.528-0 1 

1.926+00 

3.04 3-04 

00*0.5 

1 .798-03 

7.170 -0 1 

1.827*00 

3*04 3-04 

1.962*05 

4 .!:9G-03 

7.480-0 1 

J .766*00 

3. 043-04 

4.084*05 

5.797-03 

7.556-0 1 

1.746*00 

3.043-04 

4.623+05 

7.C29-D3 

7.599-0 l „ 

,1.730*00^ 

. 2.719-04 

_4.956+D5_ 


P . 327-03 
9.999-G3 


7.624- 01 

7.624- 0 I 


1 . 713^100 
I,7l3„-*a0._ 


2.396-04 

2.-933r^j_5_ 


5.190*05 

X»-£‘95.±q5_ 


C H CHIC A L -CQ u TU BR I UH_S 0 LUJJ_ON. 








c 

(jr 


C- 






C. 




I 

R 

CO 

C02 

H 

H2 

H20 


1 

D.DDO 

6.341-15 

7.6 10-06 

4.172-21 

1.745-15 

6.230-06 


2 

i9b-n*t 

6.341-15 

7.610-06 

4.172-21 

1.745-15 

6 .230-06 


3 

7.343-09 

6,405-1 5 

7,687-06 

4.214-21. 

1 .762-15 

6-293-06 



P ,9b3-04 

6.469-15 

7.7b3-n& 

4.256-21 

1 .780-15 

6.356-06 


5 

J .79B-T3 

6, 843-15 

8.21 1-Ob 

4.502-21 

1 .EP3-15 

6 .723-06 


6 

4 .590-03 

8.005-15 

9.606-06 

5.266-21 

2,202-15 

7.865-06 


7 

5 .797-03 

S. 200-15 

9. 84 1-06 

5 , 395-21 

2.256-15 

8,057-06 


& 

7.029-03 

8.253-15 

9.904-06 

5.430-21 

2.271-15 

8,109-06 


9 

e .327-03 

8.406-15 

1. 009-05 

5.530-21 

2, 313-15 

a . 258-06 


10 

9.999-0 3 

8,406-15 

1. 309-05 

5.530-21 

2.313-15 

6*258-06 


I 

R 

0 

OH 





1 

o.coo 

2. 168-19 

3.721-14 





2 

5.196-04 

Z. 168-19 

3,721-14 





3 

7.343-04 

2.190-19 

3.758-14 






E .98 3-04 

2.212-19 

3.796-14 





5 

1.796-03 

2.339-19 

4.015-14 





b 

4 .590-03 

2,757-19 

4.697-14 





7 

5.797-03 

2,8n3-j9 

4.812-14 





B 

7.C29-03 

2.821-19 

4.843-14 





9 

S .327-03 

2.873-19 

4,932-14 





10 

9.999-C3 

2.873-19 

4.932-14 





^ - 


CHOKICAL-KINETICS 

SOLUTION 

+- 

+-+-+-+- 


I 

R 

H 

NO 

NO? 

N20 



1 

0.000 

I. 401-29 

1.855-16 

3.983-20 

1 .296-16 



. 

5.196-04 

^ 1.401-29 

1. 855-16 

3.983-20 

1 .296-16 



T 

7.343 -C4 

1.401-29 

1,66 1-16 

3. 750-20 

1 .285-16 




6 .983-04 

l*‘<01-'29 

1.372-16 

3.351-20 

1 .278-16 


•9 

5 

1.798-03 

1.401-29 

6.61D-I7 

2.317-20 

1.202-16 



6 

4.590-03 

1.401-29 

3-122-17 

2.D10-20 

1.276-16 



7 

5.797-03 

1.401-29 

2.161-17 

1,880-20 

1 .315-16 



E 

7.029-03 

1.401-29 

1. 502-17 

1,654-20 

1.304-16 


S 

9 

8.327-03 

1.401-29 

1.340-17 

1 .362-20 

1.247-26 



ic 

9,999 -D-3 

1.401-29 

1.040-17 

1,362-20 

1.247-16 


• 

=• 










X= 6. 300- 

0 1 IX= 13 DXr 

5.0DO-03 




‘ 

PPESSD= -2 

.563-05 








J 

= 1 

2 

3 


, 

UFLUX= 1-293-03 FLUX(J>= 

2.564+02 

1.048-05 

9.958-06 



DAi:: 

-2. 121-03 

0A2= 2.951 

-04 




- 

1 

R 

U VOL 

TEHP 

FUEL 

OXYG 

F 


1 

0.000 

2.883-»00 

9,298+02 

2 . 166-02 

2.226-01 

2. 270 -02 


2 

6,024-04 

2. 883+00 

9-298+02 

2.166-02 

2.226-01 

2.270-02 

, 

3 

1,135-03 

2.8R34DD 

9-298+02 

2. 166-0?_. 

2.226-01 

2.269-n? 


‘I 

1,390-03 

2,882+00 

•>.29 9+02 

2,166-02 

2. 226 -01 

2.269-02 

. 

& 

2.807-03 

2.877+00 

9.30 4+02 

2.16 5-0? 

2.226-Dl 

2.269-02 


6 

7.244-03 

2. 830+00 

9.34 7+02 

2.157-02 

2.224-01 

2,266-02 

• 

7 

9 ,146-DZ 

2.805+00 

9.371+02 

2.153-0? 

. 2.223-qi,. 

. 2-264rDZ 


e 

1 .104-02 

2. 777+00 

9,4ci + 02 

2.149-0? 

2.222-01 

2.263-02 

• 

9 

1 .295-02 

2.747+qd 

9 . 435+02 

_2..14 5-GZ. 

_2.?2D-0.1 

2.263-02 


ID 

1.600-02 

0.000 

1. 110+03 

2.145-C? 

2.220-01 

2*263-02 


I 

R 

n2 

RHO 

Vise 

CNTLPV 




254 



1 

0 .000 

7.506-0 1 

1.485*00 

2,049-0? 

5.478*05 


2 

0.024-04 

7, 506-01 

1.485*00 

2.049-0? 

5-478*05 



3 

1 .135-03 

7.506-01 

1.485*00 

2.049-02 

5.478*05 


*» 

1 .390-03 

7.506-01 

i.405*nn 

?. 049-02 

5 .^ 79*05 



5 

Z,R07-03 

7.5o6-ni 

1.404*00 

2.049-02 

5.482*05 


L 

7,244-03 

7-506-01 

1 .4 7l**no 

2,049-02 

5.51 3*0 5 


7 

9 o 14 fi - r 3 

7,506-01 

I .4 74*P0 

2,049-02 

5.530*05 


8 

1 .1D4-C2 

7.506-0 1 

1.469+00 

2.049-02 

5 .551*oB 


9 

1.Z95-D? 

7.506-01 

1,464+nO 

2,049-02 

5.575*05 


10 

1 . 600-02 

7.506-0 1 

1 .464*00 

3.332-05 

7,621*05 




chehicai 

-EQUILIPRIUH SOLUTION 

♦ 

- 4 — *-♦-+- 

1 

R 

CO 

C02 

H 

H2 

H20 

1 

D .000 

3.082-1 1 

2.84 5-0 3 

6.164-1 7 

5.660-12 

2.329-03 

z 

8,074-04 

3. 082-11 

2.8 4 5-03 

6.164-17 

5.660-12 

2-329-03 

3 

1.135-03 

3. 086-11 

7.846-03 

6.174-17 

5 . 666—1 2 

2.330-03 

9 

1 , 39D-n3 

3.0 90-11 

2.84 7-03 

6.187-17 

5.673-12 

2.331-03 

5 

Z.f 07-D3 

3.145-1 1 

7.P61-03 

6.332-17 

5.763-12 

2.347-03 

6 

7.244-C 

3.641-11 

7. 984-03 

7.673-17 

6,563-12 

2.443-03 

7 

9.14fc-03 

3 . 959-1 1 

3. 056-03 

8.565-17 

7.070-12 

2.502-03 

S 

1 . 10 4-02 

4.373-11 

3.14 3-0 3 

9.761-17 

7.722-12 

2.573-03 

9 

1.295-02 

4.903-11 

3.24 5-03 

1.135-16 

8.547-12 

2.656-03 

ID 

1 -fc00-D2 

4. 903-11 

3 . 245-03 

1.135-16 

8.547-12 

2.656-03 

I 

R 

0 

OH 




1 

0 V G0[] 

3-244-15 

I.345-1D 




2 

8 .074-04 

3.244-15 

1.345-10 




3 

I .135-03 

3.250-15 

1 .347-10 




4 

1.390-03 

3.256-15 

1 ,348-10 




5 

2.eC7-C3 

3.333-15 

1.371-10 




6 

7.244-03 

4.042-15 

1 .568-10 




7 

9.145-C3 

4.514-15 

1.694-iq 




£ 

1 . 104-02 

5.148-15 

1 .856-10 




9 

1. 295-02 

5. 990-15 

2,063-10 




10 

l,f.00-C2 

5.990-15 

2.063-10 






CHEPICAL-KINETICS 

SOLUTION 

*- 

-4—4—*-+— 

I 

R 


NO 

N02 

N20 

*■ 

1 

D.GOO 

1.401-29 

8.584-13 

6,686-14 

1.523-12 


2 

8.074-D4 

1.401-29 

8.584-13 

6 . 6® 6 — 14 

1.523-12 


3 

1 . 135-03 

1,401-29 

1.557-12 

1.214-13 

1.917-12 


4 

1.390-03 

1. 401-29 

3,290-12 

2.583-1 3 

2.640-12 


5 

?. 807-03 

1.401-29 

1.334-11 

1.059-12 

5.738-12 


6 

7.244 -C3 

1.401-29 

2.940-11 

2.232-12 

9.742-12 


7 

9.146-C3 

1,543-29 

4.394-11 

3.152-12 

1-151-11 


0 

1 .104-02 

1.973-29 

6.165-11 

4.764-12 

1.383-11 


9 

1,295-02 

2.620-29 

9,429-11 

7.364-12 

1.667-11 


10 

1,600-02 

2.670-29 

9.429-11 

7.364-12 

1.667-11 



Xr 6. 3 50-01 IX r 1 4 pXj^ S.DDO-03 

' PRESSD=' -2. 305-05 
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J 

= 1 

2 

3 


UFLUX 

- 1.195-03 FLUXlJJr 

2-562+02 

1.097-05 

9.567r06.. 


Dftl- 

-5.878-03 

DA2= 8.276 

-09 




r 

R 

u vf.l 

TFHP 

FUEL 

OXYG 

F 

1 

n -OOP 

2,650 *on 

.. ?. 613+02 

.2.086-02 . _ 

.2,196-01 

2.266-0? 

? 

p .5in-P4 

2.65P400 

9,613+02 

2.0P6-Q? 

2.196-ni 

2 .?66-02 

3 

1 . ?D <• -r 3 

2.65D'*0Q. 

..9,613+02 . . 

2.QR6-C2 . 

2,196-01 

2.266-02 


1 .97*1-03 

2.65p^no 

9.614+02 

2.086-02 

2.196-01 

2.266-02 

5. 

. 2.977-03 

2,b95*00 

9,620+02 

2.085-02 

2.195-01 

2.266-02, _ 

6 

7.&60-D3 

2.6n7+DP 

9.671+02 

2.075-02 

2.192-01 

2.264-02 

7 

9 .f,9n-03 2.5P7-*00 

.9,701 + 02. _ 

.2.070-D2_ . 

,2.190-01 

2.263-02 

8 

1 .170-02 

2. 569+00 

9.737+02 

2.064-0? 

2.18P-01 

2.263-02 

9 

1 .372-02 

2.539+00 

. 9,779 + 02 

2, 056-02 . 

2,ie5-01._ 

2,262-02 _ _ . 

10 

1 .699-02 

O.QOO 

1.110+03 

2-056-0? 

2.185-01 

2.262-02 

I 

R 

N2 

Rho 

Vise 

ENTLPY 


1 

O.DOC 

7.5p6-0Jl_ 

1.9 3 7.+ 00 

.1.993-0?. 

5,4P.e+qi_ 


2 

8.5JD-P9 

7.506-0 1 

1-437+OD 

1 .993-0? 

5.408+05 


3 

1.20*1-03 

7.506-01 

1.9 37+00 

1.993-02 

5 ,4a8+as 



1. 979 -0 3 

7.506-01 

1.9 37+DD 

1 .993-C? 

5 .989 + QS 


5 

2.577-C3 

7,506-0 1 

1,436+00 

1.993-02 

5.492+05 


6 

7.tno-D3 

7.506-01 

1,928+00 

1.993-02 

5.515+05 


7 

9.694-03 

7,506-0 1 

1 .924+PD 

.1.99 3-0 2 

,3*528*05__ 


fi 

1 .170-02 

7,506-01 

1.9 1 8+00 

1 .943-02 

5.543+05 


9 

1 .372-02 

7.5Q6-01 

1.9 12+00 

1.943-0? 

5. 561+05 


10 

1.699-02 

7.506-01 

3.912+00 

3. 332-05 

7,189+OS 




CHCMICAL-ECUILJBPIUH SOLUTION 


+-*-+-+-+— 

1 

R 

CO 

C02 

H 

H2 

H20 

1 

0.000 

1.129-10 

4. 931-03 

.3.119-16 

1 .838-11 

4 .037-n3 

2 

0.51O-C4 

1,129-lG 

' 9.931-03 

3.119-16 

1.E30-11 

9 .0 37-0 3 

3 

1.209-03 

1.126-10 

9.932-03 

3.129-16 „ 

1.840-11 

9.038-03 

9 

1.979-03 

1,127-10 

9.934-03 

3.130-16 

1.842-11 

9.0 39-03 

5 

2.977-03 

1,199-10 

4.959-03 

3.208-16 

1 .873-11 

9.D6n-n3 

6 

7.6P0-D3 

1,395-lD 

5.1 80-03 

5.952-16 

2.155-11 

4.241-03 

7 

9 .694-03 

1,974-10 

5-311-03 

4 .957-1 6 

2.336-1 1 

4.349-03 

• 8 

1.170 -02 

1.692-10 

S. 970-03 

5.193-16 

2.572-11 

9 .979-03 

9 

1.372-02 

1,861-10 

5.656-03 

6.0 67-16 

2.673-11 

9.631-03 

10 

1 .699-02 

I«861-io 

5.656-03 

6.067-16 

2.673-1 1 

4.631-03 

I 

R 

0 

OH 




1 

O.OQO 

1. 652-19 

4.5 22-10 




2 

8 .510 -C9 

1.652-14 

9.522-10 




3 

I .204-03 

1.655-14 

9,527-10 




9 

1 .474-03 

1.658-14 

9.533-10 




5 

?. 977-03 

1.703-19 

9 .612-10 




6 

7.680-03 

2.097-14 

5.335-10 




T 

« 

9 .699-03 

2.366-14 

5. 802-10 




8 

1 .170-02 

2.733-1*1 

6,912-10 




9 

1-372-02 

3,227-19 

7.193-10 




io 

1 .699-02 

3.227-19 

7.193-10 





CHEKICAL-KINCTICS 

SOLUTION 

+ 


I 

R 

N 

NO 

N02 

N20 
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1 

0 .noo 

1, 413-28 

7.202-12 

5,937-13 

7.136-12 

2 


1.413-28 

7.282-12 

5.937-1 3 

7.136-12 

3 

1 .rn9-P3 

J .4 18-28 

1-151-11 

9.420-13 

8,359-12 


1 .‘IT'I-OS 

1.423-28 

2-D8b-M 

1 .722-12 

I ,047-11 

5 

? .977-03 

1,493-28 

b-957-Il 

5.809-12 

1.888-1 1 

b 

7,f.8D-D3 

2.219-2? 

1-420-10 

1-129-1 1 

2.898-11 

7 

9.694-03 

2.790-28 

1.831-10 

1.459-11 

3.307-11 

8 

1 . no - 0 ? 

3.bfc0-28 

2.553-10 

2.023-11 

3.814-11 

9 

1 .37?-C? 

5.034-28 

3.675-10 

2,882-1 1 

4.414-U 

10. 

1 .699-02 

5-034-28 

3.625-10 

2,882-11 

4,414-11 


9^9 

%- 6,400- 

Q1 IX= 15 

DX:: 

5.000-03 





PRrSSD= -2 

.101-05 








J r 

1 

2 

3 



UFLUX 

= 1.125-03 FLUXlJSr 

2.540+02 

1.D47-Q5 

8. 923-06 



0A1 = 

1 *371-03 

0A2= 5*798-04 





I 

R 

U VEL 

TEMP 

FUEL 

OXYC 

r 


1 

O.OCO 

2. 489+00 

1,030+03 

1,958-0? 

2.146-01 

2.263-02 


2 

9. 000-04 

2,489+00 

1-010+03 

1.958-02 

2.146-01 

2.263-02 


3 

1 .273-03 

2.489+00 

1 .010+03 

I .958-02 

2.146-01 

2.263-02 


4 

1 .559-03 

2.489+00 

1 .010+03 

1.958-0? 

2.146-01 

2,263-0? 


5 

3. 148-03 

2,485+00 

1.3 11+03 

1 .957-02 

2.14 5-01 

2.263-02 


6 

e .119-03 

2. 455+00 

1 .017+03 

1 .942-0? 

2.139-01 

2.262-02 


7 

1-025-G2 

2,439+00 

1. 321+03 

1. 933-02 

2.136-01 

2-262-02 


8 

3 .237-02 

2.421*00 

1 . 076+03 

I .923-02 

2.132-01 

2.261-02 


9 

1 .450-02 

2, 401+00 

1 .031+03 

1 .910-02 

2.127-01 

2.261-02 


10 

1.799-02 

O.OOq 

1. 110+03 

1.910-02 

2,127-01 

2.261-02 


I 

R 

N2 

RHO 

Vise 

ENTLPY 



1 

0 -COD 

7.506-0 I 

1.368+00 

1,849-02 

5.464+05 



2 

9. 000-04 

7.506-01 

1 ,368 + nO 

1-849-02 

5.464*05 



3 

I .273-03 

7.506-0 1 

1 .368+00 

1 ,849-02 

5.464+05 



4 

1.559 -03 

7,506-01 

1.368+00 

1.049-0? 

3.464+05 



5 

3.148-03 

7.506-0 I 

1 *367+no 

1 .849-02 

5.466+05 


* 

6 

8.119-03 

7.SC6-01 

1 .358+00 

1.849-02 

5.4 78+0 5 



7 

1 .025-02 

7.5G6-D1 

1. 353+00 

1 .849-02 

5.484*05 



8 

I -237-C2 

7.5D6-0 J 

1.347+00 

1.849-02 

5. 492+05 



9 

1.450-02 

7, 506 -01 

I .340+00 

1.84 9-02 

5.500*05 



10 

1 .799-G7 

7.506-01 

1.340+00 

3-332-05 

6.476+05 




+ -+-4 

Chemical 

-FOUILIERIUH SOLUtTON 


♦-+-+-+-+— 


I 

R 

CO 

C02 

H 

H2 

H?0 


1 

0 *000 

5.329-10 

B. 379-03 

2.328-15 

7.426-11 

6.860-03 


2 

c. 000-04 

5, 329-1 C 

P. 379-03 

2.328-15 

7.426-11 

6 .860-03 


3 

1-273-D3 

5. 335-10 

8.380-03 

2.332-15 

7*434^11 

6.P61-03 


4 

1.559-03 

5.343-1 0 

8.383-03 

2.337-15 

7.444-1 1 

6. 864 -03 


5 

3. 148-03 

5. 451-10 

8,426-03 

2.4D0-15 

7.577-11 

6.899-03 


6 

fi . 119-03 

6.4 74 -ID 

8.807-03 

3.017-15 

8.872-11 

7.211-03 


7 

I ,025-02 

7,151 -ID 

"■035-03 

3.445-15 

9.634-1 1 

7.397-03 


0 

1 *237-02 

8,052-10 

9.312-03 

4.0 35-15 

1 .0 70-10 

7.624-03 


9 

1 .450-02 

9.229-10 

9.638-03 

4 .841-1 5 

1 .2o7-1D 

7.891-03 
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1 . 799 -C 2 9 . 2 ? 9 - 1 d 9 , 638-03 (). 841-15 l«? 07-10 7 . 871-05 


R 0 

D.eOD . 1 , 248-13 

•j-onn-r'i i. 243-13 

.1,273-03 i. 250-1 3 

1 .5ri9-n3 1,263-1 3 


3 . 143-03 
8 , 119-03 
I , 025-02 

1 , 737-02 


1 . 287-13 
1 . 671-13 
1 . 8 S 3-13 
2 . 173-1 3 


_L ._4 50 - 0.2 2 „ 6 1 0=1 3 . 

1 . 799-02 2 . 61 q-i 3 


OK 

1 . 921 - 
1 . 921 - 
1.9 23 = 
1 - 926 - 
1 . 962 - 
7 . 300 - 
7 - 521 “ 
7 . 8 12 - 
. 3 . 1 . 90 = 
3 - 190 - 


ORIGINMI PAGE IS 


+-^ 


CHOPJCAL-KIWCTICS SOLUTION 




1 

n.oDo 

J., 875 t 27 , 

^4 ,. 7 . 8 . 3= 11 

_ 4 * 152 = 1 2 

. 2 ,P 86 rlJL 

2 

9 . 000-04 

5 . 875-27 

4.78 7—11 

4 * 152-12 

2 . 886-11 


_L« 273 =C 3 ._ 

5 . 8 *’ 2 - 27 . 

6 . 788-11 

5 , 900 - 1 ? 

3 . 170 -U_ 

4 

1 . 559-03 

5 , 917-27 

1 . 084-10 

9 . 497-12 

3 , 646-11 

5 „. 

3 , 148-03 

6 , 236-27 

3 . 319-10 

2 , 660-1 1 

5 . 428-11 

6 

C. 119-03 

9 . 751-27 

r. 513-10 

4 . 647-11 

7 . 410-11 

7 

1 .D 25 -D 2 

1 . 264-26 

6 .ejJ 8-10 

. 5 *A 5 ?=U 

_L. 2 a_ 2 ^i^ 

a 

1 . 237-02 

1 . 723-26 

8 . 94 3-10 

7 , 257-1 1 

9 . 196-11 

9 

1 o 45 o- 0 ? 

2 - 465 - 26 . 

I. 192-09 

9 , 560-1 1 

1 , 040 = 10 . 

10 

1 , 7 * 19-02 

2 . 465-26 

1 . 192-09 

9 . 560-11 

1 . 040-10 



X= 6. 450-01 IX= 
PRESSD= -1.939-05 


DX= 5 . 000-03 


0 FLUX= 1 . 094-03 FLUXtUlr ?. 494^02 1 . 046-05 7 - 9 Q 0-06 


R 

_p_-ooo 


R 

0.000 


-03 

Dfl 2 

2 

-04 

2 

-0 3 

2 

-D 3 

2 

-03 

2 

-dY 

2 

- 0 ? 

2 

-0 2 

* 2 

-02 

2 

-02 

0 


7 

-04 

7 

-F 2 ., 

7 

-oY 

7 

-03 

_.7 

-03 

7 


u VCL 


TEMP 
1. 385+03 
1.085+03 
1.3 a 5 40 3 _ 
1.085+03 
,_1 ,08 6*q_3, 
1 .D 94 + 0 3 
1.10C+Q3 
1-106+03 
_L..lJL.3±n,3.. 
1.1 10+03 

fho“ 

. 1.273+nO. 

I. 273+00 
_I ,27.3 + nC_ 
1.273+on 
, I .272+nC 
I. 262+00 


FUEL 

1 . 755 - 0 ? 

1 . 755 - 0 ? 

J.. 75 S-Q 2 .. 

1.755-0? 

1 .75 2 - 0 . 2 . 
1 . 729-0 2 
1 . 716 - 0 ? 
1 . 699-0 2 
. 1 .-. 6 7 . 9 = 0 -? . 
1 , 679-02 


Vise 

1 . 763-02 

1 . 763 - 02 
J..763tC2, 

1 - 763-02 

1 - 763 -D 2 . 

1 . 76 3 - 02 


OXYO 

2.3 6 5 -D_l. 

2 . 065 - 01 
- 2 .-D 65 -D.I_ 

2 . 06 5 - 0 I 
. 2 , 364 - 01 . 

2.3 55-0 1 
2 . 050-01 
2 . 093-01 

, 7 , 03 . 5 =dl„ 

2 .D 35-01 


ENTLpy 
5 , 400+05 
5 . 4 D 0 +D 5 
. 5 . 400 + 05 - 
5 . 400+05 
5 . 400+05 
5.396+oS 


.2,.26Jjr0 2 
2 . 261-02 
- 2 .. 26 L=p; 
2 . 261-02 
. 2 . 261=02 
2 - 260-02 
. 2 . 260-02 
2 - 260-02 
_ 2 .._ 259 _=. 0-2 
2 . 259-02 
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- ■ - • 

. , . 



7 

1 .OPO-O? 

7,506-0 1 

I .256+00 

1. 763-02 

5,392«D5 

■uiCaS/fffjMRM 

8 

I . 303-02 

7.506-01 

1,249.00 

1.763-02 

5,386*05 

_ 

9 

1 .527-02 

7,506-0 1 

1.24 1 ,00 

1.763-0? 

5-378*05 


10 

1,899-0? 

7.506-01 _ 

1.241+nO 

3.332-05 

5.342*05 

- - ■ — — — 



CHEMICAL 

-CODlLTBRl IIH SOLUTION 


* -*—♦-♦ -* - 

I 

n 

CO 

C02 ... 

. H 

H? 

H20 . . 

1 

0 .coo 

3,421-09 

1.390-02 

2.745-14 

3.P7P-10 

1.13B-02 

? 

9,489-04 

3.421-09 

1.390-02 

2.745-14 „ 

3.870-10 

1.138 -Q2 

3 

1 .342-03 

3,424-09 

1,390-02 

2,748-14 

3.873-10 

1.138-02 

4 

1 .644-03 

3. 4 29-0 9 

1.39J-02. 

2,753.-14 

-3-.P 78-10. 

J. 1.39 -02 

5 

3. 319-C3 

3.501-09 

1.396-02 

2.831-14 

3 .95t'-xo 

1.144-02 

6 

8,558-03. _ 

4.2C0-D9 

1.460-02 

3.616-14 

,4.638-10 

1.195-02 

7 

J .08 0-02 

4 , 6 TO -0 9 

1.4 9 7-0 2 

4,172-14 

5.P94-10 

1.226-02 

& 

1,303-02 

5.302-09 

1.543-02 . . 

4.949-14^ .. 

.5.698-10 

1,263-02. 

9 

1 .527-02 

6.1 37-09 

1.597-02 

6.02B-14 

6.485-10 

1,308-02 

10 

1 . 509-02 

6.137-0 9 

1,597-02 

6.028-14 

6-,s.e5-io_ 

1.3Gfl-02 

■ I 

R 

0 

OH 




1 

O.COD 

1,503-12 

1.P76-0 8 




2 

9.489-04 

1.503-1? 

1. 076-08 




3 

J ,342-03 

1. 505-12 

1 .077-08 




4 

1 . 644-03 

1.508-1? 

1,079-08 




5 

3,319-03 

1,551-12 

1.099-08 




6 

S. 558-03 

1.986-12 

1.301-08 




''7'' 

1 ,C80-DZ 

2.294-! 2 

1.436-08 




e 

1 .303-02 

2.727-12 

1.615-08 




9 

1 . 527-02 

3.328-1? 

1.84 9-08 




1C 

1 .899-02 

3.328-1 2 

1.849-08 





-+— +—■ 

CHEMICAL-KINETICS 

SOLUTTON 



I 

R 

N 

NO 

N02 

N20 


1 

0 .ODD 

7.368-25 

2. 555-10 

2.453-11 

1.D34-I0 


2 

9. 489-04 

7.360-25 

2.555-lD 

?..4 5.3r.Ll 

1 ,034-10 


3 

1 .342-03 

7.387-25 

3.332-10 

3,158-1 1 

1 .076-10 


<t 

1.644-03 

7.417-25 

4.80 1-lD 

4.538-1 1 

1.151-10 

, 

5 

3.319-03 

7.049-25 

1.1 34-09 

1 ,040-10 

1,427-10 


6 

8 . C.5S -03 

1,287-24 

1,859-0 9 

1.617-10 

1 ,725-10 


7 

1.080-02 

1.718-24 

2.200-09 

1,869-10 

1 .854-10 


8 

1 .303-02 

2.433-24 

2.713-r*9 

2*225-10 

2.039-10 


9 

I, 527-02 

3.627-24 

3.425-09 

2.697-10 

2, 298-10 


10 

1 .899-02 

3,627-24 . 

,3.425-09 

2.697-10 

_2.29.8-ia. 



««« X= &. 500-01 IX= 17_ ^„DX= 5 .POD -0 3 

’■pRESSDr -i.nQ6-05‘ 

„ _ _ J_=__ 1 • ■ .2 3 

UFLUx'^ ” 1.097-03 FLUXIJ)- 7,4?1+D2 I.DRS-05 6.350-06 
P A1= 1.32 6-C 3 D A 2= - g.l6 2-DH ^ 

I p. ___ u vrL^ temp fuel . oxyg __ 

1 o.odo i’i'ioi+ab” i,i99*03 1 . 443-02 1 . 941 - 0 I 
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F 

2. 259-0 2' 










- — — 



— - 



_ . 



— 


2 

9.98P-r‘» 

2.401«0n 

1.199+03 

1.443-02 

1 .941-01 

2.259-02 


_ . 3. 

1.413-03 

2.400*00 

!.1*>‘?*C'3 

1.443-02 

1 ,941-01 

2,2 59-02 



M 

1 ,730-03 

2.400*00 

1.199*03 

1 .443-02 

1 .94 1-ni 

2.259-02 


5 

2 .494-03 

2.398+OC 

1.20 1 *03 

1.439-02 

1.940-01 

2.259-02 

.i..- ... » ... -O 

& 

0.004-03 

2.382*00 

1 .212*03 

1 ,406-02 

1 ,927-01 

2 .258-02 


7 

1 .13£'-D? 

2«374*DD 

1.2 IP *0 3 

1.385-C7 

1. 919-0 1_ 

.2.25B-D2 


B 

1 ,370-02 

2.365*00 

1.226*03 

1,360-02 

1 ,900-01 

2.259-02 


- 9 .. 

1.6D5-C2 

2.357*00 , 

1,236*03 

1.329-02 

1.896-01 . 

2,258-02 

h 

IQ 

2.CDD-G2 

0.000 

1.1 ln+03 

i. 329-02 

1 ,896-01 

2.258-02 


I 

R 

N2 

RHO 

Vise 

CNTLPY 



1 

_DjDCD 

_ 7,507-0 1 

1.151*00 . 

.1.686-0 

. 5.295tDS 



2 

9.988-04 

7.5C7-01 

I. 1 61+00 

1 .686-07 

5 .295*05 



3 

1 .413-03 

7.5o7-D1 

1.151*00 . 

1 .686-02 

5,295*05 



4 

1 .730-03 

7,507-0 i 

1.151*00 

1.606-02 

5.294*05 



5 

3.494-03 

7,507-QI 

1.150*00 

. 1.686-02 

5.291+05 



6 

9.004-03 

7.507-01 

1.140+00 

1 .686-02 

5.265*05 



7 

1 . 13f.-02_ 

„ 7.5D7-0L. 

1.134*00 1.686-02 

5-746+nS 



8 

1 .370-02 

7.507-0 1 

1.126*00 

1 a 606—02 

5.221*05 



9 

1. 605-02. 

7.507-01 

1.11 7*00 

1.686-02 

5.190*05 



IG 

2.D00-02 

7,507-01 

1.1 17*00 

3.332-05 

3,630*05 



— + fr — 


CHEHICAL-CCUILIEPIUH SOLUTION 

+ 



! 

R 

CO 

C02 

K 

H2 

H20 


1 

o.cno 

2.870 -00 

2,247-02. 

.4.904-13 

. 2.527-09. 

1.836-n? 


2 

9.988-04 

2.870-08 

2,242-02 

4 ,9n4 -1 3 

2,527-09 

1 .836-02 


3 

1 .413-03 

2.87Z-Q8 

2.242-02. . 

.4-907-13 

2.528-09 

. 1. 8 36=02 _ 


4 

1 .730-03 

2.875-08 

2,243-02 

4,915-13 

2.531-09 

1 .836-02 

¥ 

5 

3.494-03 

2,931-08 

7.253-02 

04 5-13 2_, 5 74=09 1.844-02 


& 

9. 004-0 3 

3.494-08 

2.34 3-D2 

6.407-13 

3 ,306-09 

1.919-02 


7 

1 • l3t-02 

. 3.079-08. 

7.399r02 

.7,368-13 „ 

3,297-09. 

_l.964.-02_ 


8 

1.370 -02 

4.403-08 

2.469-02 

8.770-13 

3.688-09 

2.022-02 

i 

9 

1.605-02 

5,104-08 

2,553-02 

1.074-12. 

4.2n3-09_._ 

2.090-02 

III II ■ 

10 

2.000-02 

5.104-08 

2.553-02 

1. 074-12 

4.203-09 

2.090-02 

. 

I 

R 

0 

OH 





1 

0.000 

2.782-1 1 

7.752-Oa 





2 

9.988-04 

2,762-11 

7.752-08 





3 

1.413-03 

2.703-1 1 

7.756-08 






1 .730-03 

2,788-1 1 

7,764-08 





D 

3.494-03 

2.063-11 

7.903-Oa _ 





6 

9.DC4-C3 

3,649-11 

9.312-08 





7 

I .13t-DZ 

4.216-11 

1.027-07 





■ " a" 

1.370-02 

5.023-11 

1.156-07 





9 

1.605-02 

6.161-1 1 

1 .327-07 





10 

2.DD0-C2 

6,161-11 

1.327-07 





-+-•1— 

+-+-♦ 

CHEHlCAL-KINf TICS 

SOLUTION 


+ + — 

• 

I 

R 

N 

NO 

N02 

N20 



1 

O.DOD 

2.702-2? 

1.168-09 . 

1,214-10. - 

.3.396-10 



2 

9 ,988-04 

2.7B2-22 

1.168-09 

1.214-10 

3.396-10 



3 

1*413-03 

2. 786-22 

1.427-09. 

. 1.433-10 

.,3.412.=iQ__ 



4 

1 .730-03 

2.795-22 

1 .895-09 

1,039-10 

3.489-10 



5 

3.494-03 

2.953-22_ 

3-S51-09 

3.327-10 

3.758-10. 



6 

9 ,004-03 

4.870-22 

5.54G-Q9 

4.531-10 

4.169-10 
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7 

1 .13&-CI2 

b.5f>S-?2 

6.297-09 

5.np7-in 


r 


1 .370 -0? 

9.926-?? 

7,?99--n9 

5.569-10 

9.729-10 POOR QUAitI'i.‘10 


9 

I .tn'i-02 

1,939-21 

f .771-09 

6.153-lD 

5.269-10 


10 

?.rDQ»G2 

1.939-21 

8.771-09 

6. 153-10 

.5,269-10 

. 




X= 6.550-01 IX= 18 

J>r>CSSO= -1.719-05 

J = 

PX-^. E 

1 

;.000-D3 




_ _ 2 

3 



UFLUX 

= 1.139-03 FLUXt J) = 

2,329 + 02 

1 .099-05 

9 .226-06 



0A1 = 

2. 059-03 DA2= -3.996-09 





I 

R 

U VFL 

TEKP 

FUEL 

OXYG 

F 


1 

0 .000 

2.971+OD 

1.363+03 

9.997-03 

1.76 5-01 

2.257-02 


2 

1 .099-03 

2.971*00 

1.353+03 

9.907-03 

I •76 5rOJL 

2.257-02 


3 

1 .989-03 

2.971+00 

1.563+03 

9.997-03 

1 .765-01 

2.257-02 


9 

I .flG-03 

2.971+OC 

1.363*03 

9.999-03 

1 .765-01 

2.257-02 


5 

3 .670-03 

2.969+DO 

1 .369+03 

9.959-03 

1 .763-01 

2.257-02 


6 

9.952-03 

2. 957+00 

1 .375+03 

9.561-D 3 

1 ,790-01 

2.256-02 


7 

I .192-02 

2.951*00 

1.302+03 

9. 310-03 

1 ,730-01 

2.256-02 


8 

1 .937-02 

2.995+Or. 

I .391+03 

e.9R9-03 

1.725-01 

2.256-n? _ . 


9 

1 .683-02 

2,939+Oa 

1.9a?+03 

8.588-03 

1 .709-01 

2.256-02 


ID 

2 .100-02 

O.DOO 

1 .110+03 

fi .588-03 

1 ,709-01 

2.256-02 


I 

R 

H? 

RhO 

Vise 

ENTLPY 



1 

0.000 

7.507-01 

1 .013+00 

1.615-02 

5.150+05 



2 

1. 099-03 

7,507-0 1 

1,D13+0D 

1 .615-02 

5.15Q+DS 



3 

1 .989-03 

7,507-01 

1.01 3+OC 

1.615-02 

5.199+05 



9 

1 .816-03 

7.5C7-D 1 

1 .3 1 3+DC 

1 -615-02 

5.199+05 



5 

3.670-03 

7. 507-01 

1-012+00 

1 .615-02 

5.192+05 



6 

9.952-03 

7.507-0 1 

1.009+00 

1 .615-02 

5.088+05 



7 

1 .192-02 

7,507-D 1 

9.992-ni 

1 .615-02 

5,051+05 



8 

1 .937-02 

7.507-01 

9.929-01 

1.615-02 

5.003+05 



9 

1 .683-02 

7.50 7-0 1 

9.852-0 1 

1 .615-02 

9 .990+05 

• 


10 

2. 100-02 

7.507-01 

'’•8 5?-Di 

3.332-05 

1.329+05 





CHCMTCAL 

,-FQUlLIERl UM SOLUTtOfi 

■1 -+- 4 — +-+ — 


I 

R 

CO 

C02 

H 

H2 

H20 


1 

D.OOu 

2.695-07 

3.956-D2 

1 .052-11 

1 -785-08 

2.830-02 


2 

I .099-03 

2.69 5-0 7 

3.956-02 

1. 052-11 

1 «7E5~D8 

2.830-02 


2 

1 .989-03 

2.699-07 

3.956-02 

I. 052-11 

1 .785-08 

2.830-02 


9 

1 . 8 1 S -C 3 

2.695-0 7 

3.957-02 

1.352-11 

1 .70 6-08 

2. 030-02 


5 

3, 670-03 

2.681-07 

3.968-02 

1,072-11 

1 .807-08 

2,839-02 


6 

9,952-03 

3.069-07 

3.5 75-02 

1 .291-1 1 

2 .038-08 

2.927-02 


7 

1 . 192-02 

3,339-07 

3.69 3-0 2 

1.999-11 

2,196-08 

2.903-02 


8 

1 .937-02 

3.708-07 

3*731-02 

1.679-11 

2 .9 1 D-DB 

3.DSS-Q2 


9 

■ 1 .683-02 

9.212-07 

3.S91-D2 

1 - 905-11 

2 .£99-08 

3.199-QZ 


10 

2.3DD-02 

4.212-07 

3.091-02 

1.995-11 

2. 699-08 

3.199-02 


I 

R 

0 

OH 





1 

□ .000 

6.298-lG 

6.199-07 





2 

1.099-03 

6.208-10 

6.199-07 





3 

1 .989-03 

6.295-10 

6.192-0? 
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xr fc.&bo ”-0 1 ix‘= is~ 6x= ' 

PRE SSP - -l .f »«H-QS 

* J = 1 

UFLUX ^ _ 1 • 1 5^0 3 FLUX f J )_= ?,2_1 ?*R? 

DA1= 2,3'e9-D3 DA 2 = -q^b98-Dti 


I 

R 

U VEL 

TFttP 

! 

0.000 

2 . 530*00 

1 .54 3+03 

2 

1 . ID 4 -G 3 

2 . 530*00 

1 . 543+03 

3 

1 . 561-03 

2 . 530+00 

1 . 543+03 

4 

1 . 911-03 

2 , 529 +QD 

1 , 543+03 

5 

3 . £ 58-03 

2 , 520+00 

1. 543 + 03 

6 

922-03 

2 . 516 +OD 

1*54 7+03 

7 

1 . 250-02 

2 * 509*00 

1 - 550+03 

6 

1 . 5 D 6 -C 2 

2 . 501*00 

1.5 5 4 + 0 3 

9 

1 . 762-07 

2 . 491 +DD 

1 . 559+03 

10 

2 . 200-02 

O.OQG 

1 . 110*03 

I 

R 

N 2 

RHO 

1 

D.ODC 

7 . 507-01 

8 . 952-01 


1 . 104-03 

7 . 507-01 

8 . 952-01 

3 

1 .E 6 J -03 

7 . 507-03 

8 . 953-01 

4 

1 . 9 U -03 

' 7 , 5 c 7 -bi 

p .9 5 3-01 

5 

3 .fi 5 r;-D 3 

7 . 507-01 

5 , 952 -ni 

6 

9 . 922-03 

7 . 507-0 1 

8 . 931-01 

7 

1 , 250-02 

7 . 507 -ai 

8 . 9 1 5-01 

a 

1 -50 6-02 

7,50 7-0 1 

8.8 9 2-01 

9 

1 . 762-02 

7 . 507-01 

8 . 860-01 

10 

2 . 200 -02 

7 , 507-0 1 

6. 8 60-0 1 



CHLHICAl 

-EOUTLIER 


SOLUTIOM 


N?0 ' 

l.D65r09 

1 .D65-D9 

1.0&3-09 

1 .060-09 

1 ,001-09 

1 .160-09 

l.ZlZrOa 

1.281-09 

1 .375r09 

1,375-09 


r.030-03 

_ _ 

j D‘J3-05 2 .0 66-06 


FUtL 

,5.cee-03 

5 - 086-03 
, 5 .D 9 0 - 0_3 
' 5 . 09 D-G 3 
5 , 067-03 
4 . 80 * 1-03 
_ 4 ._ 622 -D 3 
4 . 377-03 
. 4 ,,D 44 -D 3 
4 , 044-03 


OXVG F 

. 1. 569-0 J 2..25S-02,_ 

1.569- 01 2,255-02 

I .56 9-01 2.25 5-0 7 

1.569- 01 2.255-02 

1 .569-01 2.255-02 „ 

1.55R-D1 2.254-02 

. _ I.551-QJ 2«254r02_ 

1.541-01 2.254-02 

1 .520 -0 1 2 .254 -0 2_ 

1.520-01 2.254-02 


N02 

. 2. 650-10 

2*6*iQ" 10 
3,067-10 __ 
3.745-lD 
6.279-10 . . 
7.306-10 

. _7.551-iO 

7.941-10 
8. 4 72.-10 _ . 
0,472-10 




1 

R 

CO 

C02 

H 

H2 

H20 

1 

0>0Q0 

1.711-06 

9,800-0? 

1 .950-10 

9. 265-08 

3. 930-02 . 

? 

1 .109-03 

1.711-0 6 

9 .800-02 

1 .950-10 

9,265-08 

3.93n-o? 

3 

1 .561-0 3 

1.70 9-0 6 

9.799-02 

1.997-10 

9.253-Ob 

3.929-0? 

<t 

1.911-C3 

1.708 -Of 

9.799-02 

1.995-10 

9.29 8-08 

3.929-02 

S 

3. ri^u-QS 

1.711-06 

9 ,8 05-02 

1 ,999-10._ 

9,266-06 

3.939-n? 

b 

c<,9?r-p3 

1.789-06 

9.877-n? 

1 - 537”10 

9*696-08 

3,993-02 

7 

1 . 2 r.n-c? 

1. 846-06 

9.926-02 

1 .609-10 

9.926-08 

9,033-02 

8 

l • 50 6*02 

1.929-06 

9,99 3-0? 

1.701-10 

1 .033-07 

9.080-02 

9 

1 .762-02 

2. 053-06 

5.089-02 

1,851-10 

1.092-07 

9,162-07 

IG 

2 .200-02 

2.053-0 6 

5.089-02 

1 .851-10 

1 .092-07 

9.162-02 

I 

n 

0 

OH 




1 

0 .COG 

9,2?a-09 

3.630-06 




2 

1 .109-03 

9.228-09 

3,630-06 




3 

1 .561-03 

9.208-09 

3.625-06 




*1 

' 1 .91} -D3 

9.199-09 

3.623-06 




S 

3.R5B-03 

9.222-09 

3.630-06 




6 

9,922-03 

9.796-09 

3.788-06 




7 

1 .250 -C2 

1.023-DE 

3. 905-06 




P 

1.506-02 

1.087-08 

9.073-06 




9 

1 .762-02 

1.185-08 

9.329-06 




10* 

2. 200 -02 

1.1S5-0F 

9.329-06 




-+-+ 


CHCRICAL-iaNETTICS 

SOLUTION 

+ — 


I 

R 

H 

NO 

N02 

N20 


I 

C.GOQ 

5.588-17 

2.184-08 

9-730rl.O 

2.813-09 


2 

1 . ID 9 -D 3 

5.5P8-17 

2.189-08 

If .730-10 

2.813-09 


^ 3 

1-561-03 

5.562-1 7 

7.362-08 

5.120-10 

2,810-09 



1. 911-03 

5. 550-17 

2.707-08 

5.B67-10 

2.810-09 


5 

3.858-03 

5.576-17 

3,795-08 

e.2m-io 

2.819-09 


6 

9.922-03 

6.2P.5-I7 

3.BE3-08 

8.172-10 

2.895-09 


7 

1 - 250 “02 

6,852-17 

3.872-08 

8,0 90-10 

2,959-09 


8 

I .506-02 

7.731-17 

9 .005-08 

8,197-10 

3.037-09 


9 

1.762-02 

9. 195-17 

9.30 2-rfi 

8.5t|8-10 

3.156-09 


10 

2 .200-02 

9.195-17 

9.302-08 

8,598-10 

3.156-09 




X= 6*650- 
PRESSD= -1 

01 lx= 20 

.550-05 

DXr 

5,000-03 




UFLUX 

J = 

= 1. 125-03 FLU 5 < 1 J» = 

1 

2.095+02 

2 

1.092-05 

3 

7.905-07 



DA1 = 

1.977-03 

DA2= -3.957- 

09 





I 

R 

U VCL 

TFFP 

FUEL 

OXYG 

F 


1 

O-ODO 

2.465+OC 

1 .652+03 

1.937-D 3 

1 ,999-Dl 

2.253-02 


2 

1,156-03 

2.965+00 

1.652+03 

1.9 37-0 3 

1 .99 9-01 

2,253-02 


3 

1 .635-03 

2 .9 65 0 

1. 652^03 

1 .940 -03 

1 -999-Dl__ 

2.253-02 


9 

2 .003-03 

2.965+OD 

1,652+03 

1.991-03 

1,999-01 

2.253-02 


5 

9 .092-03 

2.969+00 

1. 651+03 

1.978-03 

1 .99 9-Dl_ 

2.253-02 


6 

1 ,038-02 

2,948+00 

1.695+n3 

1.858-33 

1.991-01 

2,252-02 


7 

1 .307-02 

2. 939+00 

1.692+03 

I .788-03 

1 .938-01 

2,252-02 


8 

1.579-02 

2.925+00 

1,639+03 

1,683-03 

1 .939-01 

2,252-02 
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9 

1D_ . 

I . 

1 

2 

1 ,840-02 
2.3DD-02 

. R 
n*coD 
- 1 • 1 5 Cr 3 . 

?.40fl-*0n 

0.000 

N2 

7.507-D ! 
.7 *507-0 1 ^ 

1.6 36-*0 3 
1*110*03 

PHO 

8.365- 01 
.....8.3 6 5-01 ,. 

8.366- 01 
. 8*36 7-01 

8*372-01 
8,399-01 
8 .4 1 4 -n 1 
_ e .4 30-01 

I. '5 2 1-0 3 
1.521-03 

Vise 

j .492-0? 
1.402r0 2... 
1 .492-02 
1 .492-02 

1.492- 02 

1.492- 07 

3.492- 0 2 

1.492- OZ. 

1 .428-Dl 
1,428-01 . 

CNTlPY 
4.776*05 
4 -776*05 

2.252- 02 

2.252- 02 . 

C 

3 

4 

1 . 635-03 
2.CD3-03 
4.04 2-03 
1 -038*-02 
3 . 307-02 
1-* S74 rG2-. 

7.507- 0 1 
. 7.S07-0 1 

7.507- 01 
7* 507-01 
7.507-0 1 

507-01 . 

4 ,774*05 
4 , 773 * 05 .,. 


.6 

7 

b 

4 *760'»05 

4.651+05 

4 .580*05 
4.488*05 


9 

10 

1 *84C -02 
2^,300-02 

7.507-0 1 
. 7.507.-01 

CHr.HlC 

8 . 4 4 4 -n 1 
. .r.4 4 4-01 

1 .492-02 
3,332-05 - 

JH .SOLUTION 

11 . 

4 .371+05 
-2.135+05 . 



+ -* - + 

al-couilibph 

C02__ 

♦ 

- 4 — «■-+-*- 

T 

R 

CO 

H2 

_ H2f1 

I 

C.CDO 

4.573-06 

5.660-02 

5.057-10 

2,210-07 

4.634-02 

2 

1 . 156-C3 

,_4-573-C t_ 

.5.660-02 

5.057-ID 

2.21D-07., 

4.634-02 . _ 

3 

1 -835-03 

4. 565 -D 6 

5.659-02 

5.842-10 

2. 207-07 

4 .633-02 

4 

2 .003-03 

4.559-06 

5.6 5P-n2 

5,8 32-10 ... 

?.2D5rC7_ . 

ij .^,33-0? 

5 

4 .042-03 

4 .527-06 

5.6 59-02 

S.77C-10 

2.191-07 

4.633-02 

b 

1 .0 38-02 

4 *367^0 6 

. 5*681-02 .. 

5.4 54-10 

2*125-':07 

4.651-02 

7 

I .307-02 

4.289-06 

5,699-02 

5.300-10 

2.094-07 

4.666-02 

a 

1.574-02 

4. 213-06 

5.728-02 

5*146-10 

2.D63-D7, - 

4.689-02 

d 

1 -f4n-D2 

4*159-0 6 

5*772-02 

5.026-10 

2.342-07 

4.725-02 

10 

2.300-02 

4. 159-0 fc 

5*7 72.-02 . 

5*02£ciJlD . 

2,04.2^0^ 

4.7,25-02 

I 

R 

0 

. OH 




1 

O.GDD 

3.868-08 

9.281-06 



1 

2 

1.156-03 

3.868-08 

. 9.281-06 




3 

1 .635-03 

3.858-DP 

9.265-06 




4 

2.003-03 

3.051-08 

9,255-06 . 




5 

4 .042-03 

3.809-08 

9.194-06 



1 

6 

1,038-02 

3*594-08 

6*887-06 




7 

1 .3D7-C2 

3.489-08 

8.738-06 




8 

1. 574-02 

3.384-0 8 

8,594-06 



* 

9 

“ 1 .040-02 

3 .302-08 

8*491-06 




10 

2 .3fi0 -C 2 

3.302-08 

P.491-06 




—■+ — + — 

+— + 

CHErMTCAL-KlNCTlcS 

SOLUXIPN 

+ *■ 


I 

R 

N 

NO 

N 02 

. -N 20 


1 

0 .000 

1.044-15 

9.673-08 

1.311-09 

5.D24-D9 

- 

2 

1 . 156-03 

1.044-15 

9.673-08 

1.311-09 

5,024-09 


3 

I ,635-03 

1.0 38-15 

9,738-08 

1. 321-C9 

5. 01 9-09 


4 

2.005-03 1.034-15^ 

1,016-07. 

J *379-0.9. 

5.016-09 


5 

4- 042-03 

1-011-15 

1 .04 3-0 7 

1.420-09 

4 .995-09 


6 

1 .038-02 

S.9*’'l-1 6 

S .68 3-06 

1.201-09. 

4.9D4-09 


7 

I .307-02 

8,4d4-l6 

8 . 234-08 

1*148-09 

4 .864-09 


8 

1 .f;74-D2 

.7,869-16 

7.964-OG 

1 . lia-09 

..4.827„-09.__ 


9 

1 . 84C-02 

7,450-16 

7.949-08 

1.122-09 

4 .808-09 


10 

2 .3DD-C2 

7.4 50-1 6 

J.94 9-08.. 

. I-* 122--a9_ 

4.808-09 
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X= 6.7C0- 

01 IX= 21 

DX= 5 

.000-03 




PRt SSD- "1 

.448-05 




... ....... 1 



J = 

1 

2 

3 


UFlUX 

- l.CS?-D3 FLU>tJI= 

1.9B 1*02 

1.041-05^ 

2.755-07 


DA1 = 

1 .179-C3 

0A2= -2-109*' 

□ 4 




I 

R 

U VOL 

TEMP 

P=^UEL 

oxyr 

F 

1 

o.oon 

2.3i8-»on 

I.6P6*03 

6.5'- 1-04 

1.394-01 

2.251 -02 

2 

1 .20 4 “D 3 

2. 318*00 

1 .666*03 

6.561-04 

1.394-01 

2.251-02 

3 

1 .703-03 

2.3184DD 

1 ,686*03 

6.576-04 

l.,39 4-Di. _ 

2*251r.02 


' 2 .DP6-D3 

2 . 318-ton 

1,685*03 

6.585-04 

1.394-01 

2.251-02 

5 

4 ,211-03 

2,316+on 

1.684+03 

6.600-04 

1.394-01 

2.251-02 

6 

1 .G82-0Z 

2. 2 97* DC 

1 ,674*03 

6.475-04 

1 .394-01 

2.250-02 

7 

1 . 262-02 

2.2P4 *0D 

1.669*03 

6,281-04 

1 , 303 -Dl 

2.250-02. _ 

B 

I . 639-02 

2.267*00 

1 . 662*03 

5.927-04 

1.392-01 

2.250-02 

9 

1 ,916-C2 

2,244+00 

1.654+0 3 

5.313-04 

1.389-01 

2.250-n2 

ID 

2,400-02 

0.000 

1.1 lC+03 

5.31 3-D4 

1 .389-01 

2 .250-02 

I 

R 

N2 

RHO 

Vise 

ENTLPV 


1 

O.DDO 

7.507-01 

r.l99-Dl 

1.437-02 

4.569*05 


2 

1 .204-03 

7.50T-D 1 

8.1 99-0 I 

1 .437-02 

4.569*05 


3 

1 ,703-03 

7.507-0 1 

8.20n-Dl 

1.437-02 

4.567+05 



“ 2,D4fa-C3 

7.507-01 

8. 200-01 

1,437-02 

4„566+05 


5 

4.211-03 

7.5D7-0 1 

«,2a7-Pl 

1.437-02 

4 .55 0*05 


6 

1 ;0ft2-02 

7.507-01 

8.254-01 

1,437-0? 

4.421*05 


7 

I .362 -02 

7.507-01 

P. 282-01 

I, 437-02 

4.338*05 


R 

i .639-02 

7.507-01 

8.316-01 

1 .437-02 

4.233*05 


9 

1-914 -C2 

7.5C7-0 1 

8.354-01 

1.437-02 

4.103*05 


ID 

2.400 -D2 

7.507^ 1 

8.356-01 

3,332-05 

-2.612*05 



_V-+-4-+— I ■ CHEWlCAL-tOUitlBRIUH SOLUTION 4-*-+-+-4- 


I 

R 

CO 

C02 

H 

H2 

H20 

1 

C.ODO . 

6.208-06 

6. GO 6-02 

9.015-10 

2.901-07 

4.917-02 

2 

1 . 20 4 -C 3 

6.208-06 

6.DC6-D2 

9.015-10 

2.901-07 

4.917-02 

3 

1 .703-rZ 

6.199-0 6 

6.005-02 

8.996-10 

2. 898-07 

4.917-02 

4 

2.086-03 

6.192-06 

6,005-02 

a.9Sl-lD 

2.895-07 

4.917-02 

5 

4.211-03 

6.132-0 6 

6,305-02 

G. 851-10 

2.871-07 

4.916-02 

' 6 

l.CtZ-C2 

5.718-06 

6.007-02 

7.962-10 

2.703-07 

4.918-02 

7 

1 .362-02 

5.489-06 

6.0 12-02 

7.482-10 

2.60 9-07 

4.972-02 

8 

1.639-0? 

5,228-06 

6.022-02 

6.947-10 

2. 502-07 

4.930-02 

9 

1 .916-02 

4 . 949-06 

6.038-02 

6.386-10 

2.388-07 

4 ,943-02 

lb 

2.4CD-D2’ 

4.949-06 

6.038-02 

6.386-10 

2,388-07 

4,943-02 


R 

0 

OH 




1 

D .000 

6.020 -08 

1.244-05 




2 

1 .204-03^ 

6. 020-08 

1.244-05 




3 

1 . 70 3 -0 3 

6.007-08 

1 .242-05 




4 

2.086-03 

5. 996-08 

1.241-05 



* 

5 

4 .21 1-03 

5.90P-0B 

1 .2 30-D5 




6 

1.D8.2-C2 

5.297-0 8 

1,151-05 

. 



7 

1.362-C2 , 

4 .968-08 

1.107-05 




8 

1 .639-02 ' 

4."60?-D S 

1*057-05 




9 

1.916-02 

4-220-0 8 

1 .004-05 




10 

2.4DQ-D2* 

4,220-08 

1 , 004-05 












2B5 



+-♦ -+ 

CHEMICAL-KINETICS 

SOLUTTON 

+ -+-+-+-+ — 

I 

3 

N 

NO 

NO? 

N20 

1 

0 .000 

2.512-15 

2.282-07 

2.675 -C9 

6.143-09 — 

2 

1.204-03 

2.512-15 

?. 282-07 

2.675-09 

6.143-09 

3 

1.703-03 

2 ,sni-l 5 

2.242-07 

2,629-09 

_6. 138-0.9 

4 

2.C66-C3 

2.492-15 

2.242-n? 

2,631-09 

6.133-09 

5 

4,211 -C3 

2.418-15 

1.939-07 

2.344-09 . 

6.098-09 

6 

1.082-02 

1.936-15 

1.466-07 

1.806-09 

5. 654-09 * 

7 

1 .362-02 

1,698-15 

1 ,3C 0-07 

1.683-09 

„ 5,719-09 . _ . „ 

8 

1 .639-02 

1.451-lS 

1.263-07 

1 ,597-09 

5,566-09 

9 

1.916-02 

1.213-15 

1.207-07 

1 .563-Q9 

5.433-09 

10 

2.40Q-D2 

1.213-lS 

1.207-07 

1.563-09 

5,403-09 



X= fc«75D-01 IX= 22 DX= 5e,Q30-D3 

PRESSD= -1.355-05 


J = 1 2 

UFLUX= _9.72*t-D<i FLUX«J»= l, 87 f|+g _2 i.0'jgrP_5_ 

DA1= l^P91-c3 0A2= 7.502-04 


FUEL 

2.1H6-D5 
2 . 166-04 
2.193-DJl 
2.197-04 
„ 2 . 211 -P^_ 
2.223-04 

2.175-OJL 

2.D63-D4 
1 ,847-04. 
1.647-04 


R 

U VEL 

TEMP 

O.DOO 

2.153+00 

1. 686 + 03 

1.25D-C3 

2.153+DC 

1.686+03 

1 ,768-03 

2,153+00 

1.606+03 

2.16S-C3 

2.153+00 

1.666+03 

4 .370-03 

2.1S1+DC 

1.664+03 

1.123-02 

2,128+00 

1.673+03 

1 .414-02 

2. 112+00 

1.&6&+03 

1 .703-02 

2.093+OC 

1.658+03 

1.991-02 

2*068+00 

1.648+03 

2.499-D2 

0.000 

1.110+03 

R 

N2 

RHO 

0 .000 

7.507-0 1 

8.197-01 

1 .25D-C3 

7,507-01 

0,1 97-01 

1 ,768-03 

7.507-0 1 

P. 197-01 

2.1C5-R3 

7,507-01 

8,198-01 

4 .370-03 

7. 507-01 

0.205-01 

1 .123-02 

7.507-0 1 

6.260-01 

1 .414-02 

7.507-0 1 

8.294-01 

1 .703-02 

7.507-0 1 

8.336-01 

1 .991-02 

7.507-01 

R.387-DI 

2.499-02 

7.507-01 

8.38 7-01 


Vise 

1.387- 02 
i .307-02 
1 - 387 -C? 

1.387- 02 
I .387-JO 2_ 
1.3S7-D2~ 
1 .367-02_ 
1.36 7-0 2 

1.387-02 
3.332-05 


9.499.-0.3. 


OXYG 
1 , 377-0. 1_ 

1.377- 01 
^ l.377-Dl_ 

1 .377- 01 
_ I .37770 1 . 

1. 377 - oi 

1. 377- 01 

1 .377-01 

1.376- 01_ 

1.376- 01 


FNTLPY 
4 -362+05 
4 . 362 + 05 '^ 
4.361+05„ 
' 4.359+05 
. -f£- 34 ltC. 5 _ 
4 ,198+05 
4 .109+0.5 
3.997+05 
3.859+05 
-2.772+05 


_2.249.r02_ 
2,249-02 
_ 2.249-02_ 
2-249-02 
_ 2 .2 49-0 2 
2.243-02 

2 . 248 - q^ 

2.248- 02 
2.24a-a.2_ 

2.248-02 




CHEMICAL 

-EOUILTORIUH SOLUTION 

1 

R 

CO 

C02 

H 

1 

O.GOD 

6.347-06 

6.121-02 

9.234-10 


1 .25D-C3 

6,347-06 

6.12 1-02 

9.234-10 ; 

3 

1 .766-03 

6.340-0 6 

6.12 1-02 

9 . 217 -jLQ i 

4 

2,165-03 

6.333-06 

6.120-02 

9.202-10 

5 

4*370-03 

6 * ? '"D 6 

6,120-02 

.. 9.056-10_, 

6 

1 .123-02 

5.771-06 

6.1 19-02 

7.998-10 


H2 

2 ,965-07 
2.965-07' 
.2-962-.QX. 
2.959-07 


5.0 Ilr02_ 
‘ '5.011-02 

^5.011rp2„ 

5.011-02 

5-01i7'02_ 

5.010-02 


7 

1 .HlR-02 

5. *( 90-0(1 

6.120-02 

7,417-10 

2.616-07 

5.011-02 

6 

1 . 70 3 -0 2 

5.16R-nfi 

6.173-02 

6.761-10 

2.401-P7 

!i. 013-02 

9 

I .991-0? 

9,803-06 

b. 128-07 

6.057-in 

2.331-07 

5.017-02 

ID 

2 .9«9-Q? 

q.8D3-nf. 

6.128-02 

6,057-10 

2.331-07 

5.017-0? 

I 

R 

0 

OH 




I 

n.cno 

6.167-08 

I .272-05 




2 

1 *250 “0 3 

6.167-08 

1.272-05 




3 

I . 768-03 

6, 156-08 

1 .270-05 


PAGP TQ 

*i 

2. Jf.0-n3 

6.145-08 

1.269-05 


5 

*t . 370-03 

6.04 5-0 8 

1 .256-05 




b 

1 . 123-02 

5.319-08 

1.162-05 



1 

1 -RlU-02 

4,922-OP 

1.1Ci8-D5 




8 

1.703-02 

4.4 79 -OP 

I. 046-05 




9 

1 .991-02 

3,995-OP 

9.763-06 




10 

2.R99-02 

3.995-06 

9.763-06 





CH Ef*IC A L-KIN ETTI C_S S OLUT TOW 


I 

R 

N 

NO 

N02 

N20 

I 

0 .COO 

2.619-15 

3, DPP-07 

3.57]-09 

6*273-09 

2 

1 .250 -03 

2,619-15 

3.086-07 

3.571-09 

6.273-09 

3 

1 . 76P -03 

2.609-15 

3,032-07 

3-508-D9 

6 .269-09 

4 

2.165-C3 

2,600-1 5 

3.017-07 

3.492-09 

6.264-09 

c: 

4 , 270-03 

2. 515-15 

2,667-07 

3.101-D9 

6.225-09 

6 

1 ,123-c? 

1.938-15 

1.962-07 

2.366-09 

5.931-09 

7 

1 .414-02 

1,654-15 

I. 779-07 

2- 193-0 9 

5.764-09 

8 

1 . 703-02 

1.360-15 

I ,639-07 

2.0 76-0 9 

5,560-09 

9 

1 .991-02 

1.076-15 

1.554-07 

2.033-09 

5.350-09 

10 

2 . 499-02 

1.076-15 

1,554-07 

2.033-09 

5.350-09 


««« 

5f- 6. POO- 

□1 1X= 23 

nx- 

5. 000-03 




PPt SSD= -1 

.276-05 







J = 

1 

2 

3 


urL'UJf 

= e. 955-04 FLUyCJl- 

1 .776<02 

1.040-05 

3.328-08 


DA !=■ 

1 - 357-05 

Ofl?:: 5.509-04 




r 

R 

U VFt 

TOHP 

FUETL 

OXYG 

F 

1 

0 .DOO 

1 ,991+00 

1,676<03 

7.416-05 

3 .372-01 

2,247-02 

2 

1 .296-03 

1.991 <00 

1,676+03 

7.416-05 

1 .372-01 

2 .247-02 

3 

1 ,832-03 

1.991 <00 

1.6 76+0 3 

7.442-05 

1 .372-01 

2-247-02 

4 

2 .244-03 

1 ,99X<00 

1 .6 75*0 3 

7.456-05 

1 ,372-CI 

2, 247-02 

5 

4 . S3c-q3 

1,988+DD 

1.674+03 

7,530-05 

1 ,372-01 

2,247-02 

6 

1 . 165-0? 

1 .963<0C 

1 .66?<03 

7.752-05 

1.372-01 

2.247-02 

7 

1 .467-02 

1,946<DD 

1 .655*03 

7.643-05 

1,372-01 

2.246-02 

8 

1 .767-02 

1 ,976<0C 

1.646+C3 

7.289-05 

1 .372-01 

2.246-02 

9 

2. 06 7-02 

1.900+00 

1.635+03 

6.537-05 

1.372-01 

2 .246-02 

ID 

2.599*02 

0 .000 

1.1 10 403 

6.537-05 

1.372-01 

2.246-02 


I R N? RHQ 


1 

O.DDO 

'7^507-01 

C“.“2 4 6-01 

“ 1.340-02“ 

4 ,162+qS 


2 

1 .296-03 

7.5r;7-0 1 

p.?4p-ni 

1 ,340-02 

4 ,162 + 0 5 


3 

1 .632-03 

7.507-01 

P. 249-01 

1 .340-02 

4 .160<05 
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*1 

2.244-03 

7'^5n7'-d i 

8.250-01 

1 .340-02 

4 , 159*05 


s 

4 ,530^03 

7.507-01 , 

P. 257-01 

1.340-02 

4,140*05 _ 


& 

1 -lGSi-02 

7. 507-01 

P ,316-01 

1 .340-02 

3,991*05 


7 

1 .467-02 

7.5n7-0 1 

8.352-01 

1 .340-02 

3,899*05 


M 

1 «7f,7-02 

7.507-01 

8.397-01 

1 .340-02 

3.784*05 


9 

_J1.067-D2 

.7.507-0 1 

0.45Z-01 

.1.340-0 2- .. 

-3 ,64 5*0S 


10 

2 .599-02 

7.507-01 

8.452-01 

3.332-05 

-2.822*05 




CHEHICAI 

-ECUILTBRl UM SOLUTION 


-4—4-4 

I 

R 

CO 

C02 

H 

H2 

H20 

JL 

n.ODD 

_5.910.r0 6 

,6.156-02_ 

8,267-10.. . 

_2b79Q-D7. . 

5.040-0? 

2 

1 .296-03 

5.910-06 

6.156-02 

8, 267-10 

2. 790-07 

5.040-02 

3 

1.032-03 , 

. 5.903-06 

6.1 56-02 

8.252-10 

?,7P7-07.. 

5. 040-02 

4 

2.244-03 

5,897-06 

6.155-02 

8.239-10 

2,785-p7 

5.040-02 

S 

_.4 .5 3D-0 3_ 

5,833-06 

6,155-n2_ 

8,105-10 

2,759-07 

5.039-02 

6 

1 .165-02 

5,349-06 

6.1 54-02 

7,112-10 

2.560-07 

5.038-02 

' 2 

_J...467j^C2 _ 

5,074-06 

6,154-02 

..6 ,.56 6 -ID 

_J?.44 6.rD-7 

c,. 078-0? 

0 

1 .767-02 

4.752-06 

6.155— [72 

5.940-10 

2.311-07 

5.039-02 

9 

2. 067-02 

4-392-06 

6.156-02 

5. 280-10 

2.159-07 

5,040-02 

10 

2 .599-02 

4.392-06 

6.156-02 

5.280-10 

2. 159-07 

5 .040-02 

X 

R 

0 

OH 





c.coo 

5.502-08 

1.189-05 





1 .296-03 

5.502-00 

1, 189-os 





1 . P32-C3 

5.442-00 

1.188-05 





7.244-03 

5. 483-08 

1,186-05 





4.53C -0 3 

5.391-0 0 

l.I 74 -dS 





1 .165-02 

4.712-00 

1.082-05 





1 .467-02 

4,340-08 

1,029-05 




0 

1.767-02 

3.920-00 

9.668-06 




9 

2.067-02 

3.467-08 

8,972-06 




10 

2 .599-02 

3.467-08 

a. 972-06 






CHErlCAL-K I NETICS 

SOLUTION 

4“ 

4— 4-^4— 4 — 

' I 

R 

N 

NO 

N02 

N20 


1 

□ .ODD 

2.073-15 

3.295-07 

3,926-09 

6.0 30-09 


2 

1 . 296-C5 

2,073-15 

3.295-07 

3.926-09 

6.030-09 

• 

3 

I .032-03 

2,065-15 

3.252-07 

3.877-09 

6,D26“09 


4 

2.244-C3 

2.Q50-I 5 

3.24 9-07 

3.876-09 

6,022-09 


5 

4-530-03 

I .9BB-15 

2.9£ 9-07 

3.558-09 

5.984-09 


6 

1 . 165-02 

1.510-15 

2.24 1-P7 

2.791-09 

5.693-09 


7 

I .467-02 

1.275-1 5 

2.045-07 

2.608-09 

5.526-09 


0 

1 *767“02 

1 .033-1 5 

1.S9R-07 

2.493-09 

5.329-09 


9 

2.067-02 

8. 010-16 

1.81 3-07 

2.46S-D9 

5.106-09 


10 

2. 599-02 

8.0 10-16 

J .8 13-07 

2.468-09 

5.106-09 
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